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I.  IN  TBODOCTION 


Current  economic  trends  have  brought  about  an  increased 
awareness  of  the  need  for  productivity  gains  in  the  work¬ 
place.  Like  all  facets  of  business,  government  is  finding 
increased  pressures  tc  reduce  expenditures  and  still  provide 
service  to  the  people.  To  meet  the  challenges  of  reducing 
costs  and  maintaining  service  levels,  government  managers 
are  looking  toward  office  automation  and  computerization  to 
increase  individual  productivity.  The  Navy  Fleet  Material 
Support  Office  (FMSC),  like  most  Government  Agencies,  is 
doing  its  part  to  improve  productivity. 

The  Defective  Material  Section  of  FMSO  (Code  91423)  is 
designated  as  the  overall  monitor  for  the  quality  deficiency 
management  information  reporting  system.  A  Thesis  entitled 
A  system  Analysis  and  Design  For  Updating  the  Internal 
Tracking  of  the  fiua^iti  Deficiency  Reporting  System  at  the 
Navy * s  Flegt  Mate^a*  Support  Office  by  Michael  D.  Carriger 
recommended  the  development  of  a  prototype  network  of  inex¬ 
pensive  microcomputers  and  the  creation  of  a  central 
Database  System.  This  prototype  system  will  demonstrate  the 
feasibility  of  automating  the  QDR  Processing  Procedures,  and 
will  allow  the  evaluation  of  processing  with  automated  tech¬ 
niques.  Additionally,  the  prototype  will  provide  tha  basic 
design  for  future  CDR  Systems  and  its  interaction  with 
users.  [Ref.  1] 

Current  microcomputer  technology  has  allowed  very 
powerful  systems  to  be  created  at  relatively  low  costs. 
Microprocessors  with  ever  512,000  characters  of  memory  can 
process  ever  500,000  instructions  per  second.  Secondary 
storage  units  can  access  over  35  million  characters  of  data 
at  the  rate  of  5  million  bits  per  second.  Relational 


Database  systems  allcw  microcomputers  to  create,  update,  and 
manage  large  databases  of  information  at  relatively  low 
costs. 

The  purpose  of  this  Thesis  is  to  develop  a  Prototype 
Eatatase  Management  Information  System  for  use  at  the 
Defective  Material  Section  of  FMSO  (Code  9142  3).  This 
system  will  utilize  current  microcomputer  technology  and 
off-the-shelf  hardware  and  software.  Application  programs 
will  be  generated  with  a  high  level  database  manipulation 
language.  For  this  application,  dBASE  II  (by  Ashton-Tate)  , 
IBM- PC  micrccomputers,  PCnet  (ty  Orchid  Technology)  ,  and  20 
MB  hard  disk  storage  devices  (by  Tallgrass  Technology)  are 
utilized  to  create  the  Management  J  formation  System.  This 
hardware  and  software  was  sele^  because:  1)  it  had 

already  teen  evaluated  ar.d  was  in  use  at  other  sections  of 
FMSO;  2)  it  appeared  that  it  cc._-ld  meet  the  processing 
requirements  for  the  QDR  System;  3)  it  could  be  easily 
obtained  with  minimal  cost  to  the  project;  and  4)  it  could 
he  incorporated  intc  both  the  short  term  and  long  term 
processing  goals  for  FMSO  [  Hef.  1  ]. 

The  major  areas  of  concern  for  the  project  center 
around:  1)  contention  caused  by  multiple  users  accessing  the 
same  Data  Ease  Files  over  a  microcomputer  network;  2) 
Security  logon  protection  fcr  the  system;  3)  Flexibility  to 
respond  to  ad  hoc  information  requests;  and  4)  providing 
meaningful  system  dialog  for  untrained  computer  users. 


II.  B1THCD0L0GY 


The  development  of  the  Quality  Deficiency  Reporting 
(QDR)  System  was  based  on  modern  software  engineering  and 
design  principles.  Data  flow  diagrams,  structure  charts, 
and  a  high  level  programming  language  aided  in  the  creation 
cf  the  system.  Using  top-down  design  to  provide  a  logical 
basis  for  development,  the  software  creation  involved:  1) 
studying  and  understanding  the  QDR  process,  2)  identifying 
at  least  one  method  cf  solving  the  problem,  3)  creating  data 
flow  diagrams  tc  shew  the  gross  data  transformations,  4) 
using  the  data  flow  diagrams  to  construct  a  structure  chart, 
and  5)  describing  each  abstraction  used  in  the  solution  in  a 
manner  that  lends  itself  to  eventual  coding  in  a  high  level 
language.  [Ref.  2] 

The  initial  study  of  the  QDR  System  was  based  on  Michael 
D.  Carriger's  thesis  work.  This  provided  much  of  the  back¬ 
ground  information  that  was  necessary  to  formulate  a 
possible  solution.  Eased  on  the  operational  environment  and 
the  users'  level  of  computer  familiarity,  it  was  decided 
that  a  menu  driven  system  be  created.  This  would  provide  an 
easy  to  understand  interface  for  the  unfamiliar  user.  Data 
flow  diagrams  were  generated  to  identify  the  transformation 
of  data  frem  input  to  output.  This  provided  a  pictorial 
representation  of  the  data  used  by  the  QDR  System  and  estab¬ 
lished  a  means  of  identifying  the  changes  that  took  place 
during  tte  life  cf  a  QDR  Case  (See  figure  2.1  and  2.2). 

The  data  flow  diagrams  provided  the  basis  for  creating 
the  system's  hierarchical  structure.  By  reviewing  the  basic 
transformations  performed  by  the  system,  it  became  apparent 
that  there  are  three  main  activities  necessary  for  main¬ 
taining  the  Central  Database.  These  basic  activities 
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Figure  2.2  Qdr  Update  and  close. 

prompted  the  creation  of  the  Open  Case,  Update,  ar.d  clcs 
Case  nodules.  All  ether  functions  associated  with  the  CD 
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System  are  support  modules  for  presenting  the  Database 
information  to  the  end  user,  maintaining  support  Database 
files,  and  generating  management  information  (See  figures 
2.3  and  2.4)  . 

The  QDR  System  was  implemented  using  the  command 
language  for  dBASE  II,  a  Relational  Database  Product.  This 
command  language  is  a  high  level  language  that  supports 
tlock  structured  development.  It  is  an  interpretive 
language  that  must  be  re-evaluated  through  each  pass  of  the 
program  execution.  To  ensure  program  clarity,  the  programs 
utilized  meaningful  names  to  identify  variables  and  make  the 
flow  of  information  more  apparent  to  the  reader. 
Information  hiding  was  utilized  to  reduce  the  amount  of 
unnecessary  information  handled  by  each  program.  Required 
information  is  passed  between  programs  as  the  data  is  needed 
for  processing  (See  Appendix  A  for  a  complete  listing  of 
Passed  Variables).  Information  hiding  also  conceals  the 
processing  algorithms  used  within  a  program.  when  inter¬ 
facing  programs,  the  programmer  only  needs  to  knew  what 
information  passes  between  programs  and  not  hew  the  informa¬ 
tion  is  treated  intertally.  The  use  of  information  hiding 
techniques  reduces  the  complexity  of  systems  development  by 
allowing  the  programs  to  be  developed  independently  based  on 
interfacing  requirements  only.  [Ref.  3]  Another  mechanism 
to  simplify  the  programs  is  to  include  comment  lines  to  make 
them  more  readable  and  understandable  to  maintenance 


personnel. 

As  each  program  was  created,  it  was  tested  to  ensure 
that  it  accurately  performed  the  function  for  which  if  was 
designed  and  did  not  contain  errors.  As  individual  programs 
were  tested,  they  were  combined  with  other  tested  units  to 
ensure  compatibility  between  the  various  system  segments. 
This  integration  testing  was  performed  to  ensure  that  the 
individual  programs  worked  in  conjunction  with  ether 
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programs  and  modules.  As  errors  were  detected  in  programs 
and  modules,  these  bugs  were  corrected  and  then  retesting 
was  performed  for  both  individual  and  integration  tests. 
All  of  the  initial  tests  were  performed  in  a  single  user 
environment  to  reduce  some  of  the  system  complexity.  Once  a 
program  or  module  had  completed  both  individual  and  integra¬ 
tion  testing,  these  units  were  then  tested  in  the  multi-user 
environment.  Other  aspects  of  the  software  development  are 
discussed  in  more  depth  later. 


III.  SYSTEM  DEVELOPMENT 


The  development  of  the  QDR  System  considered  many 
aspects  cf  computer  utilization.  The  system  was  designed  as 
an  integrated  package  of  hardware  and  software  that  was  to 
te  utilized  as  a  management  information  tool.  To  produce 
the  desired  results,  both  hardware  selection  and  software 
development  requirements  were  made  considering  the  utiliza¬ 
tion  of  the  system  and  the  target  group  of  system  operators. 
Such  things  as  user  interface,  the  multi-user  environment, 
security,  system  cost,  and  the  availablity  of  system  compo¬ 
nents  were  integrated  in  the  methodology  of  developing  the 
QDR  Sysrem. 

A.  SOFTWARE 

The  original  QDR  software  design  centered  around  a  data 
base  consisting  of  8,000  -  10,000  records  in  the  Open  File 
and  16,000  -  20,000  records  in  the  Closed  File.  Each  of 
these  records  contained  thirty  data  fields  and  required  275 
characters  of  data.  Headquarters  level  changes  to  QDR 
processing  procedures  expanded  the  scope  of  the  data  files 
considerably.  New  data  reguiremer.zs  in  support  cf  the 
Product  Deficiency  Reporting  System  and  Evaluation  Program 
(PDREF)  increased  the  files  to  fifty  four  data  elements 
requiring  ever  600  characters  of  data  per  QDR  Case.  (See 
Appendix  B  for  a  complete  list  of  Database  structures  and 
Appendix  C  for  the  Data  Element  Definitions.)  To  accomcdate 
these  additional  data  items,  the  case  records  had  tc  be 
split  intc  two  parts.  This  was  necessary  because  cf  a 
restriction  in  the  Database  Management  Software  used  for  zhe 
system.  The  current  DBMS  allowed  a  maximum  of  thirty  two 
data  elements  per  database  file. 
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The  sccpe  of  the  changes  mentioned  above  required  a 
total  redesign  of  the  QDR  System.  Up  to  that  point,  a 
substantial  amount  of  design  work  and  actual  programming  and 
testing  had  been  completed.  Although  many  of  the  “lessens 
learned"  during  the  initial  design  could  be  applied  tc  the 
redesign,  and  many  cf  the  initial  algorithms  could  be  modi¬ 
fied  and  reused,  the  redevelopment  effort  required  a  signif¬ 
icant  amount  of  time  and  effort.  All  user  interface 
programs  had  to  be  redesigned  and,  in  many  cases,  repro¬ 
grammed  to  accomodate  the  new  data  elements  and  provide  a 
meaningful  interface.  The  change  in  scope  drastically 
reduced  the  time  available  for  complete  testing,  documenta¬ 
tion  and  implementation  thus  resulting  in  the  prototype 
system  being  more  capable,  but  requiring  additional  effort 
in  rhe  above  areas. 

Much  of  the  software  development  was  aimed  at  providing 
a  system  that  had  an  easy  to  understand  user  interface, 
could  be  used  in  a  multi-user  environment,  provided  a  degree 
of  security,  and  was  maintainable.  The  following  sections 
discuss  each  of  these  areas  and  provide  some  insight  into 
how  these  were  achieved.  Throughout  this  chapter,  the  terms 
module  and  program  are  used  interchangably. 

1 •  Sjer  Interface  With  QDB  System 

The  interface  between  the  user  and  the  QDR  System 
was  a  major  point  of  concentration  to  ensure  the  usefulness 
of  the  entire  system.  In  order  to  allow  for  the  lack  of 
experience  cf  the  analysts  with  automated  tools  and  to  avoid 
training  costs  for  newly  assigned  personnel,  the  perception 
that  the  personal  computers  were  really  "QDR  Machines"  was 
utilized.  The  entire  dialog  of  a  user  with  the  machine  was 
centered  around  the  functional  aspects  of  the  current 
working  environment.  A  menu  based  system  was  utilized  to 
guide  the  analysts  through  their  case  processing.  At  each 


point  where  a  choice  could  be  made,  the  user  was  presented 
with  an  explicit  message.  If  an  invalid  choice  was  made, 
the  system  would  thee  provide  a  message  indicating  an  error, 
and  show  the  valid  range  cf  choices  available  to  the  user  at 
that  particular  point.  If  the  user  was  familiar  with  the 
range  of  valid  inputs  and  did  net  make  an  entry  error,  then 
the  messages  would  net  appear  on  the  screen.  This  allowed 
for  the  more  experienced  user  to  avoid  some  of  the  screen 
prompting.  The  System  was  written  such  that  each  of  the 
user  "QDB  Machines”  would  automatically  initialize  itself 
and  be  in  a  state  waiting  for  the  user  to  logon  (See  figure 
3.1)  . 

ENTER  YOOR  USER  I.D. 

xxxx 

■■  — — — —  ■  ■  —  — — — 

Figure  3.1  Logon  Prompt. 

This  isolated  the  user  from  any  of  the  underlying 
machine  operating  system  and  preparatory  steps  that  are 
normally  associated  with  putting  today's  microcomputers  into 
operation.  The  only  function  that  the  computer  was  avail¬ 
able  for  was  the  processing  of  QDR's.  When  an  analyse 
terminated  operations  for  the  day  the  terminal  would  again 
go  into  a  state  ready  for  another  user  to  logon  cr  for  the 
analyst  to  re-enter  the  system. 

The  procedure  for  an  analyst  to  enter  the  QDR  System 
is  demonstrated  by  the  following  selection  of  screen 
displajs  and  choices  that  are  available.  The  process  begins 
with  entry  into  the  system  at  the  beginning  of  the  day. 
Each  analyst  has  been  assigned  a  user  I.D.  and  a  unique 
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Figure  3.3  Currently  Logged  Message. 


3.3)  .  If  the  correct  Access  I.D.  is  entered  then  the  system 
will  prompt  to  enter  the  password.  The  password  requires 


r 


ENTER  PASSWORD  FOLLOWED  BY  <CR> 


Figure  3.4  Login  Prompt. 


exact  upper/lower  case  entry  (Figure  opn4)  .  Three  chances 
are  given  tc  successfully  enter  the  password  and  if  unsuc¬ 
cessful,  the  console  is  locked  out  and  may  only  be  put  back 
into  operation  by  the  system  supervisor.  A  successful  logon 
will  te  followed  by  a  greeting  to  the  QDR  System,  and  the 
user  will  be  presented  with  the  main  menu  which  contains  all 
of  his  processing  options  (See  figure  3.5). 

- - - - 

KELCOME  TO  THE  QDR  AUTOMATED  TRACKING  SYSTEM 

1  -  Open  New  Record 

2  -  Close  Record 

3  -  Update  Record 

4  -  Originate  Letter 

5  -  Reoort  Generation 

6  -  Query 

7  -  Exit  from  the  System 
Enter  Your  Choice 


Figure  3.  5  Main  Menu. 


From  the  main  menu  (figure  3.5)  ,  the  analyst  has  the 
option  tc  open  a  new  case,  update  an  existing  case,  close  a 
case,  originate  a  letter  tc  an  item  manager,  get  a  listing 
cf  all  of  his  open  cases  in  the  QDR  System,  query  the  data¬ 
bases  for  information  or  to  leave  the  QDR  System. 

As  an  example  of  the  process  required  to  open  a  new 
QDR  case,  the  following  sequence  shows  the  screens  as 
presented  tc  the  analyst.  In  order  to  open  a  case,  the 
analyst  chooses  a  "1"  from  the  main  menu  and  then  is 
presented  with  a  screen  where  verification  of  desire  is 
required.  This  allows  the  analyst  to  change  his  mind  before 
beginning  the  process  and  to  return  to  the  main  menu.  A 
choice  of  M1M  puts  the  user  in  the  case  opening  process  (See 
figure  3.6)  . 


*****  OPEN  NEW  CASE  ***** 


THIS  PROGRAM  ENABLES  YOU  TO  OPEN  A 
NEW  QDR  CASE 

1  -  CONTINUE 

2  -  RETORN  TO  MENU 


Figure  3.6  Verification  Message. 


The  input  screens  presented  to  the  user  are  designed 
with  the  source  input  document  Standard  Form  368  (SF  368)  as 
the  basis.  Each  of  the  items  of  information  are  captured 
from  the  numbered  blocks  of  the  SF  368.  Where  information  is 
not  identified  on  the  form,  yet  is  needed  for  the  QDR  case, 
input  is  requested  at  the  location  where  most  often  written 
in  by  the  analyst  or  by  the  originatinq  office.  The  purpose 
of  this  was  to  maximize  the  ease  and  fluidity  of  data  entry 
by  the  analyst  by  considering  the  physical  location  of  the 
data  as  well  as  the  logical  relationship  cf  the  elements. 

The  first  entry  required  was  the  date  the  case  was 
received  by  FMSO.  A  standard  (MMDDYY)  format  for  dates  was 
utilized  throughout  the  QDR  programs,  based  upon  user  speci¬ 
fications  (See  figure  3.7). 

After  entry  cf  the  national  stock  number,  a  prompt 
to  verify  the  initial  data  is  put  on  the  screen.  This 
enables  the  analyst  to  ensure  that  the  correct  case  will  be 
created  and  will  alleviate  a  later  need  to  delete  an  invalid 
case  from  the  database  (See  figure  3.8)  .  A  choice  cf  "2" 
allows  the  changing  cf  any  initial  data  item  before  contin¬ 
uing  to  the  second  screen. 


********  ENTER 

DATA  FOR 

THE  NEW 

CASE  ******** 

******  ** 

FROM 

SF  368 

******** 

DATE  RECEIVED 
CAT 

COG 

NSN 

EY  FMSO 

MMDDYY 

'  xxxxxx1 

•  X‘ 

•  xx  * 

• XXX-XX-XXXX-XXXX' 

_ 1 

Figure  3.7  Initial  Entry  Screen. 


VERIFY  ABOVE  INFORMATION 
YOU  MAY  NOT  CHANGE  IT  AFTER  THIS 
WITHOUT  STARTING  OVER  AGAIN 
1  -  CONTINUE  2  -  CHANGE  3  -  EXIT 


Figure  3.8  Bailout  /Change  Option. 


The  analyst  is  next  presented  with  a  full  screen  of 
data  elements.  The  layout  is  such  that  the  left  side  cf  the 
item  latels  contains  the  numbers  relating  to  the  SF  368 
blocks.  This  portion  is  blank  where  the  element  is  net  on 
the  SF  368.  Following  each  element  label  is  a  reverse  video 
representation  showing  the  correct  length  of  the  input  item. 
The  inputs  which  are  optional  are  marked  by  a  <0>  (See 
figure  3.9) .  The  cursor  moves  from  one  data  element  to  the 
next  one  as  the  analyst  completes  item  entry.  Any  incorrect 
or  cut  cf  bounds  entry  will  result  in  a  specific  error 
message  to  the  user  showing  the  valid  range  of  inputs. 
These  error  messages,  when  activated,  appear  on  the  lasr 
line  cf  the  screen.  The  user  can  thus  consistently  lock  to 
a  single  location  for  status  or  error  messages  from  the  CDR 
System. 
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SF368 

'  1 

5. 

NSN 

CATEGO  RY 

SMIC 

1  A. 

UIC 

3. 

REPORT  CONTROL 

4  . 

DATE  DISCOVERED  MMDDYY 

6  . 

NOMENCLATURE 

7. 

FSCM 

<0> 

8  . 

MFG.  PART  NUMBER 

<0> 

9. 

SERIAL/LOT/BATCH 

<0> 

1  0. 

CONTRA CT/PO 

<0> 

DOCUMENT  NUMBER 

<0> 

1  1. 

ITEM  N  OR  0 

<0> 

12. 

CATE  M  FG/REP/O  VHL 

<0> 

1  3. 

CEN  TIME  AT  FAILURE 

<0> 

1  4. 

GOV  FURNISHED  MATL 

<0> 

1  5. 

CTY:  R  EC/INSP/DEF/STK 

1  6a  1  . 

TYPE/M  ODE 1/ SERIES 

<0> 

a2 . 

SERIAL  NUMBER 

<0> 

b. 

NEXT  HIGHER  ASSY 

<0> 

SUB-AS  SEMELY 

<0> 

******* 

CHECK  PREVIOUS  ENTRIES 

******* 

CHOCSE  1-  CONTINUE  ENTRY  2-  MAKE 

CORRECTIONS 

_ 

Figure  3.9  First  Screen  of  data. 

Consistent  with  the  previous  choices  of  leaving  a 
particular  screen,  the  analyst  has  the  ability  to  make 
changes  before  proceeding.  The  next  screen  of  data  presents 
the  same  basic  format  to  the  user,  and  allows  the  input  of 
the  second  half  of  the  data  elements.  The  NSN  and  category 
of  the  case  being  input  are  echoed  at  the  top  of  the  screen 
so  the  analyst  may  keep  track  of  them  for  later  reference. 
Data  items  are  calculated  by  the  program  where  possible  and 
then  inserted  into  the  screen  at  the  appropriate  point.  The 
extended  price  is  one  such  item  which  was  previously  hand 
computed  (See  figure  3.10). 

Open  completion  of  data  element  entry,  the  analyst 
may  elect  to  change  an  item,  post  the  case  or  exit  the 
opening  program  and  go  back  to  the  main  menu  without  posting 
the  case.  This  is  critical  at  this  time  in  the  entry 
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UI 

UNIT  ERICS 


EXTENDED  PRICE 


18.  EST.  CORRECTION  COST  <0> 

19.  WARRANTY  -  Y/N/U 

20.  WORK  UNIT  CODE  <0> 

21.  ACTI C N/DISP  OSI TION  -H/I/D/R/O  <0> 

22.  DETAILS  OF  DISCREPANCY  -  FIRST  2 

LETTERS  MUST  RE  DISCOVERY  CODE 
23A .  ACTION  POINT 

DEFECT  VERIFICATION  CODE  -  N/O/U/Y  <0> 
DEFECT  RESPONSIBILITY  -  C/N/S/U/X  <C> 
9Q 

ORIGIN  CODE 
30.  TYPE  COC 

TYPE  DEFICIENCY 


1  -  POST  CASE 

2  -  CHANGE  DATA 

3  -  EXIT  WITHOUT  POSTING 


Figure  3.10  Second  Screen  of  Data. 


process.  If  a  major  mistake  had  been  detected,  it  would  be 
test  to  re-initiate  the  entry  of  a  particular  case  instead 
of  using  the  update  program  to  change  each  item.  This  gives 
the  analyst  a  final  point  where  the  process  can  start  over 
without  any  interaction  with  the  current  cases.  From  the 
users  point  of  view  it  is  comforting  to  know  that  an  earlier 
mistake  could  be  elininated  prior  to  posting.  On  a  busy 
network,  the  posting  process  may  take  a  few  minutes,  thus 
the  analyst  is  re-assured  that  "all  is  well"  by  a  screen 
giving  a  status  report  on  the  process  (See  figure  3.11). 

After  successful  assignment  of  a  case  number  and 
posting  to  the  database,  the  case  number  is  displayed  on  the 
screen  (See  figure  3.12).  After  noting  the  case  number  on 
the  SF  368  for  any  future  reference  as  needed,  the  analyst 
can  clear  the  screen  by  pressing  any  key,  and  then  will  be 
tack  at  the  point  where  he  may  input  another  new  QDR  case  or 
return  to  the  main  menu. 


CASE  BEING  POSTED  TO  DATA  BASE 
PLEASE  STANDBY 


***  DO  NOT  INTERRUPT  *** 


Figure  3.11  Response  to  POST  Choice 


CASE  NUMBER  OF  THE  NEW  CASE 
•4001 92A ' 


PRESS  ANY  KEY  TO  CONTINUE 


Figure  3.12  Feedback  to  Analyst. 


The  above  sequence  gives  a  flavor  of  the  screens  and 
messages  that  are  present  in  the  QDR  System.  Foremost 
consideration  in  design  of  screens  and  menus  was  the  ease  of 
use  by  the  analysts.  The  screen  design  in  a  pattern  which 
matched  the  source  document,  as  much  as  possible  while 
considering  additional  input  requirements  lad  to  a  clean, 
easy  to  understand  representation.  The  error  messages  were 
directed  at  identifying  a  specific  range  of  acceptable  input 
values  and  presenting  these  to  the  analysts  for  their 
review.  Consistency  of  input  parameters  was  maintained  to 
enable  the  user  to  react  to  prompts  and  choice  points  thus 
requiring  a  minimum  of  additional  thought  and  attention  to 
the  process  of  data  entry  and  interaction  with  the  " QDR 
Machine"  itself. 
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•  Eulti-User  Environment 

The  QDR  System  uses  dEASE  II  to  handle  all  aspects 
cf  the  system's  operations.  This  database  management 
product  is  designed  for  a  single  user  and  does  not  provide 
the  locking  mechanisms  necessary  for  a  multi-user  environ¬ 
ment.  To  overcome  this  deficiency,  a  Database  Handler  was 
created  to  control  access  to  the  various  database  files. 
Access  to  the  Database  is  achieved  by  calling  the  Database 
Handler  routine  and  providing  it  with  a  two  character 
alpha-numeric  type  code  which  represents  the  type  of  the 
desired  access  (See  figure  3.13).  The  Database  Handler  will 
either  expect  additional  parameters  or  will  provide  informa¬ 
tion  depending  on  the  selected  access  type. 

In  crder  to  perform  record  locking  or  file  writs 
functions,  the  Database  Handler  must  first  establish  write 
access  tc  the  database  file  that  is  being  written  to.  A 
special  "File  Status"  data  file  provides  the  mechanism  to 
determine  write  access.  As  each  user  process  calls  the 
Database  Handler  for  file  write  transactions,  the  file 
status  is  checked  to  see  if  the  file  is  currently  locked  by 
another  process.  If  the  file  is  locked,  the  Database 
Handler  enters  into  a  test  and  wait  loop  until  the  file  is 
made  available.  When  the  file  is  unlocked,  the  Database 
Handler  will  then  lock  the  required  file  by  placing  the  User 
I.D.  cf  the  operator  into  the  file  status  file.  There  is  a 
point  of  contention  at  the  moment  the  file  is  released  by  a 
process.  Each  terminal  on  the  network  has  its  own  copy  of 
the  Database  Handler  and  as  such,  when  a  file  is  unlocked, 
ether  processes  will  perform  the  same  locking  action.  Tc 
ensure  that  a  process  has  obtained  write  access,  a  verifica¬ 
tion  check  is  made  just  prior  to  actually  performing  the 
write  operation.  If  write  access  has  been  obtained,  the 
Database  Handler  will  perform  the  write  and  release  the  data 
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The  first  character  of  the  Access  Code  represents  the 
file  teing  accessed  and  the  second  character  represents 
type  of  access  desired. 


First  Character 
1 
2 

3 

4 

Second  Cha  ract er 
A 
B 
C 
D 
E 
F 
G 
H 
I 


Database  File  Used 
OPEN  1 
0PEN2 
CL0SE1 
CL0SE2 

Database  Action 

Read  -  NS N  Access  (See  note  1) 
Read  -  Case  Number  Access 
Write  -  Unlock  Record 
Read/Lock  -  NSN  Access 
Read/Lock  -  Case  Access 
New  Record  Creation  (See  note  2) 
Record  Unlock 

Read  -  Record  Number  Access 
Skip/Read  -  Record  Number  Access 

NSN  Access  and 


Note  1:  Open2  and  Close  2  dc  not  have 
default  tc  Case  Number  Access. 

Note  2:  closel  and  Close2  create  new  records  from  the 
Open  File  records  being  closed. 


Figure  3.13  Database  Handler  Access  Codes. 


file  for  ethers.  If  write  access  is  not  obtained,  the  test 
and  wait  Iccp  is  entered  again. 

Tc  perform  a  write  operation,  the  entire  database 
file  is  locked  so  that  no  one  else  can  write  to  it.  When  an 
individual  record  must  be  updated,  it  is  undesirable  to 
leave  the  Database  file  locked  while  the  operator  is  making 
updates  to  the  record.  To  prevent  this,  a  record  locking 


capability  was  added  to  the  Database  Handler.  This  is  dona 
by  including  a  timestamp  data  element  in  each  data  record. 
Prior  tc  retrieving  a  record  for  update,  the  Database 
Handler  checks  to  see  if  the  record  has  previously  beer, 
locked.  Any  attempt  to  update  a  locked  record  will  result 
in  a  code  being  returned  tc  the  calling  program/module  (See 


The  Data  Base  Handler  will  return  a  one  digit  Code 
indicating  the  Succsss/Failure  of  a  Data  Base  Access. 


Return  Code 


Definition 

Data  Base  Access  Successful 

Record  Currently  Locked 

Unassigned  (Available  for 
future  growth) 

Record  Not  Found 


Figure  3. 14  Data  Base  Handler  Return  Codes. 


Figure  3.14).  As  with  general  write  operations,  the  data¬ 
base  must  be  temporarily  locked  to  allow  the  timestamp  to  be 


This  record  locking  mechanism 
function  without  unintentionally 


written  cut  to  the  file, 
allows  multiple  users  to 
overwriting  information. 

3 .  System  5 ecur ity 


Because  of  the  amount  cf  data  held  by  the  QDR  System 
and  the  value  of  the  information  to  FMSO  Code  91423,  the  CDR 
System  required  some  degree  of  security.  There  are  basi¬ 
cally  two  levels  of  security  available  for  the  system.  The 
first  level  of  security  is  the  protection  of  the  System 
Disks.  •  The  Master  Network  Station  is  the  gateway  to  the  QDR 


Programs  and  Data  Files.  By  keeping  the  master  station 
operating  disks  under  lock  and  key,  the  system  is  net  gener¬ 
ally  accessible  to  unauthorized  personnel.  Access  to  these 
disks  should  be  controlled  by  the  system  supervisor  or  his 
assistant  supervisor. 

The  second  level  of  security  involves  a  logon  and 
password  system  incorporated  into  the  QDR  Software.  Each 
authorized  user  is  provided  a  unique  user  identification 
code  which  will  allow  him  access  to  the  system.  In  addition 
to  the  required  I.E.  Code,  a  password  is  required  to 
complete  the  logon  procedure.  The  passwords  may  and  should 
be  changed  periodically  by  the  system  supervisor  to  reduce 
the  likelyhcod  of  unauthorized  personnel  becoming  familiar 
with  the  passwords.  To  utilize  the  QDR  System,  the  user 
accesses  the  system  as  described  in  the  section  on  user 
interface.  The  user  is  given  three  attempts  to  access  the 
System.  If  all  three  access  attempts  fail,  the  system  will 
display  an  "Illegal  Access  Attempt"  message  and  will  lockout 
the  terminal.  The  only  way  to  return  a  locked  terminal  to 
an  operational  mode  is  to  "reboot"  the  affected  terminal. 

Although  this  method  of  security  is  simplistic,  it 
is  the  method  most  suitable  for  a  system  of  this  nature.  As 
the  value  of  the  data  held  by  the  system  increases,  the 
security  procedures  should  be  reviewed  to  ensure  they  are 
adequate . 

4.  Flexibility  And  Maintenance 

The  fact  that  the  QDR  System  could  expect  to  undergo 
changes  was  considered  in  not  only  program  development, 
but  also  in  the  database  organization.  Flexibility  and 
maintainability  of  the  entire  system  represented  develop¬ 
ment  objectives  it  order  to  support  the  earlier 
discussed  design  goals  of  modularity  and  information 
hiding.. 


CBASE  II  with  its  command  language  and  relational 
database  provided  a  powerful  vehicle  to  construct  the 
programs  and  databases  for  the  system.  The  English-like 
quality  of  the  command  language  provides  the  programmers  a 
sense  of  code  function  over  and  above  relying  on  algorithm 
inspection  alone.  Comments  were  spread  throughout  the 
program  listing  where  they  would  assist  understanding 
of  specific  portions  of  the  processing,  especially  in 
QUERY  and  XEBHNDLR  {See  Appendix  D  for  a  complete  set  of  QDR 
System  Program  Listings).  Additionally,  comments  were 
provided  in  the  program  headers  to  identify  critical  infor¬ 
mation.  Variables  passed  between  the  module  of  interest 
and  all  ether  modules  as  well  as  a  list  of  subordinate 
and  superordinate  acdules  were  provided.  Maintenance  of 
the  programs  could  then  be  conducted  with  a  knowledge  of 
the  current  interface  between  the  modules. 

The  structured  programming  technique  of  indentation 
was  used  to  enhance  readability  and  understandability  of  the 
code.  This  provided  anyone  reviewing  the  source  listings 
with  an  easy  to  understand  view  of  the  control  structures. 
Each  level  cf  contrcl  was  indented  to  identify  and  clarify 
the  hierarchy  of  control.  Each  hierarchical  level  can  thus 
be  traced  from  level  to  level  by  following  the  indentation 
patt  ern . 

In  addition  to  the  general  aids  to  maintainability 
described  above,  seme  specific  areas  were  identified  for 
likely  future  changes.  Internally  generated  change 
was  expected  from  assignment  cf  different  analysts,  addi¬ 
tional  or  modified  internal  reports  and  standard  queries. 
External  changes  were  likely  in  the  areas  of  Cognizance 
Group  (COG)  assignments,  changing  addresses  cf  Item 
Managers  and  report  modifications. 

The  supervisor  was  provided  with  the  means  to 
update  .currently  authorized  users  and  their  passwords  via 
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the  supervisor's  main  menu.  The  updating  of  COGs  ar.d  Item 
Manager's  information  were  also  included.  These  were 
seen  as  routine  housekeeping  modifications  which  aid  not 
demand  a  programmer's  attention. 

If  demand  for  specific,  repetitive  queries  arise, 
the  addition  of  this  capability  by  maintenance  programmers 
is  very  easy.  Currently  each  analyst  is  able  to  receive  a 
listing  of  each  of  his  currently  open  cases  as  a  standard 
guery  from  his  "report  menu".  To  add  any  additional 
guery  would  require  modification  of  only  one  program 
module. 

As  an  example,  suppose  that  a  commonly  cccuring 
query  by  all  analysts  was  to  receive  a  list  of  their  open 
cases  from  a  particular  COG.  The  programmer  would  be  able 
to  provide  this  capability  by  adding  only  a  few  lines  of 
code.  The  addition  of  a  menu  selection  item  would  be 

accomplished  by  the  following: 

*****  MENU  ADDITION 

'  2  -  List  of  assigned  open  cases  for  specific  CCG  ' 


*****  VALIDATING  ENTRY 

STORE  T  TO  BADCCG 
DO  WHIIE  BADCOG 

a  LINE, COLUMN  SAY  'Enter  COG'  GET  ANSWER 
READ 

USE  D: C OGS 
FIND  ANSWER 
IF  #  =  0 

3  23,20  SAY  'COG  NCT  FOUND,  TRY  AGAIN* 

ELSE 

STORE  F  TC  BADCCG 
ENDIF 

ENDEO  <3ADC CG> 

*****  NOW  FIND  THE  OPEN  CASES  FOR  THIS  ANALYST 
*****  CHOICE  OF  MEDIUM  WAS  MADE  IN  ORIGINAL  MENU 

USE  D:0PEN1 

DISELAY  CASE,  NSN.NOMEN,$  (DATES, 1  1,5)  FOR  COG  -  ANSWER 
.AND.  WHO  *  C  :  WHO 


This  is  but  one  of  the  many  methods  that  could  be 
used  tc  provide  the  additional  capability  to  the  analysts. 
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The  isolation  of  the  functions  within  a  single  module 
combined  with  the  power  of  a  relational  database  are  a 
definite  asset  to  the  programmer  in  extending  the  use  of 
the  system  to  its  users. 

While  the  capability  to  extend  the  functions 
provided  has  been  built  in,  the  decision  to  do  sc  should 
not  be  taken  without  consideration  of  the  impact  on  the 
system  as  a  whole.  An  extension  such  as  the  one  just 
described  could  be  helpful  and  not  be  detrimental  tc  the 
system  operation  if  properly  i iplemented.  A  choice  would 
have  to  be  made; 

1.  Restrict  the  use  of  this  option  to 
low  use  periods. 

2.  Implement  it  as  a  standard  internal  report, 
once  a  week  fcr  example. 

3.  Create  an  index  file  based  on  either  COG  or 
analyst  and  keep  these  updated  during  normal 
processing. 

The  supervisor  must  be  aware  of  the  impact  of 
these  alternatives.  What  in  the  first  view  looks  like  a 

very  easy  and  useful  method  of  producing  the  listings,  may 
potentially  cause  system-wide  problems.  The  two  most  likely 
drawbacks  would  be  slowing  processing  response  time  to  an 
unacceptable  level  or  causing  additional  index  files  to 
steal  precious  space  on  the  system  hard  disk.  The  first 
option  would  allow  analysts  to  retain  greatest  flexi¬ 
bility,  however  it  would  be  difficult  to  implement  and 
control.  The  internal  indexing  of  the  databases  for 
normal  processing  includes  neither  COG  nor  Analyst, 
for  this  reason  a  request  as  outlined  above  would 
require  a  sequential  search  of  the  OPEN  1  database.  A 

process  that  could  take  up  to  30  minutes,  not  likely  a 
satisfactory  solution! 

The  second  option  has  the  advantage  of  being 
easy  to  control,  has  no  impact  on  day  to  day  processing 
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cr  storage  and  meets  the  requirement  to  provide  a 
list  to  each  analyst.  Analyst  flexibility  would  be 
compromised  and  the  required  periodicity  would  have  tc  be 
determined. 

Choice  number  Three  would  allow  the  lists  to  be 
generated  upon  demand.  The  major  drawback  would  be  the 
addition  of  an  additional  index  that  would  have  to  be 
updated  at  each  case  creation,  update  and  closing. 
This  would  add  overall  processing  requirements  and  thus  slow 
down  the  complete  system.  Additionally,  the  index  would 
require  space  on  the  hard  disk,  a  critical  resource. 

The  proper  choice  for  the  supervisor  and 
programmer  combination  would  balance  the  users  needs 

and  the  system  realities.  Although  the  above  example 

shows  a  simple,  easy  extension  it  points  out  the  neces¬ 
sary  considerations  which  must  be  included  in  all  deci¬ 
sions.  The  micro  computer  system,  as  well  as  the  mainframe 
computer  does  have  application  limits.  In  the  QDR  System 

all  current  requirements  have  been  met,  and  while 

designed  for  ease  of  maintenance  and  ext endability ,  the 
latter  should  be  implemented  with  discretion  and  caution. 

B.  B ABD WARE 

The  CER  System  is  a  combined  software  and  hardware  suite 
which  performs  management  information  and  database  manage¬ 
ment  functions.  The  hardware  selected  for  the  system  was 
comprised  of  multiple  microcomputers,  secondary  storage 
devices,  printers,  monitors,  keyboards,  and  network  hardware 
with  controlling  software.  The  selection  of  the  supporting 
hardware  is  vital  tc  the  operation  of  the  central  database 
system  because  it  provides  the  mechanism  for  sharing  the 
database  files  and  operating  programs.  To  meet  the  demands 
of  the  network  operation,  the  hardware  must  be  compatible 
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and  allow  the  equipment  to  be  integrated  into  a  complete 
system. 

1 •  Selected  Hardware 

The  microcomputer  selected  for  the  QDR  System  was 
the  IEM-Fersonal  Computer  (PC).  This  provided  expandability 
and  supported  both  networking  and  relatively  large  hard  disk 
storage  devices.  At  the  Naval  Postgraduate  School  prototype 
site,  the  network  was  composed  of  four  PC's.  Each  PC  was 
equipped  with  a  keyboard,  a  color  monitor  and  color 
controller  board  which  allowed  the  experimentation  with 
color  interfaces  for  users.  All  of  the  PC's  contained  two 
double-sided  double-density  320  KByte  floppy  disk  units  with 
controllers  and  network  controller  boards  for  Orchid 
Technology's  PCnet.  Two  of  the  four  PC's  had  128  KBytes  of 
random  access  memory  (RAM)  while  the  other  two  had  320 
KBytes  of  RAM.  The  320  KB  systems  were  also  equipped  with 
AST  Research's  MegaElus  board  which  provided  64  KB  of  the 
320  KE  RAM,  a  clock/calendar,  a  serial  input/output  (I/O) 
port,  and  a  parallel  I/O  port.  These  I/O  ports  allowed  the 
connection  cf  either  printers  or  modems.  Two  printers  were 
connected  to  the  network  (cne  to  each  of  the  PCs  with  I/O 
ports).  One  printer  provided  letter  quality  output  through 
its  daisy  wheel  print,  while  the  other  provided  the  capa¬ 
bility  cf  printing  text  and  drawing  graphs  through  its  dot 
matrix  print. 

The  personal  computers  with  the  additional  memory 
and  I/O  capabilities  were  also  outfitted  with  interface 
cards  for  Tallgrass  Technology's  20  MByte  Hard  Disk  Storage 
Units.  These  disk  units  provided  up  to  four  logical  disk 
drives  and  contained  built-in  tape  backup  units  which 
allowed  saving  archival  information. 
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Hardware  Integration 

The  integration  of  the  hardware  was  largely 
completed  by  the  equipment  manufacturers.  The  controller 
boards  for  both  the  network  and  the  hard  disk  interfaces 
were  specifically  designed  to  become  an  integral  part  of  the 
IBM- PC.  The  software  that  controlled  both  the  hard  disk  and 
the  network  were  created  to  work  in  conjunction  with  the 
PC-DOS  operating  system  and  with  each  other.  The  importance 
of  this  interface  between  the  manufacturers  became  very 
apparent  as  system  integration  testing  began.  The  initial 
versions  of  the  network  and  hard  disk  software  were  not 
completely  compatible.  As  a  result,  the  system  was  prone  to 
locking  up  during  operations  that  involved  large  amounts  of 
disk  accessing.  The  respective  companies  worked  together  to 
solve  the  lockup  problems  and  made  available  the  corrected 
versions.  Once  the  corrected  versions  were  installed,  the 
lockup  problem  appeared  to  be  alleviated  and  cleared  the 
path  for  the  creation  of  the  Central  Database  System. 

3 •  Hardware  Limitation s 

A  limitation  of  the  selected  hardware  suite  is  the 
inability  fcr  a  shared  PC  to  access  files  located  on  another 
shared  PC.  This  means  that  the  shared  PCs  are  limited  in 
their  ability  to  access  the  total  database.  During  the 
early  design  phases,  this  was  not  considered  a  problem 
because  each  record  only  required  275  bytes  of  information. 
Assuming  a  combined  lead  of  30,  000  records  in  the  Open  and 
Closed  Database  Files,  the  system  required  less  than  9  Mega 
Bytes  of  storage.  Under  the  revised  QD s  processing  require¬ 
ments,  the  same  load  cf  30,000  records  required  over  18  MB 
of  storage.  The  18  ME  requirement  does  not  include  overhead 
for  programs,  support  files,  cr  indices  required  by  the  QDR 
System.  This  meant  that  the  Open  and  Closed  Database  Files 
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needed  tc  be  split  across  twc  hard  disk  units.  Since  the 
user  PCs  can  have  access  to  multiple  shared  devices,  this 
limitation  only  restricts  the  use  of  the  shared  PCs.  By 
utilizing  the  shared  PCs  as  network  controllers  only,  the 
databases  can  be  split  across  the  network  ar.d  accessed  by 
all  users. 

C.  TESTING 

Testing  was  conducted  throughout  the  development 
period  of  the  QDR  System.  The  testing  approach  used  was 
to  progress  from  unit  testing  of  one  module  to  integra¬ 
tion  cf  tested  modules.  Validation  of  these  modules  against 
design  criteria  was  followed  by  system  testing  using  the 
complete  software  and  hardware  package.  [Ref.  4] 

1  •  Onit  Testing 

Unit  testing  cf  modules  represented  the  first  level 
of  testing.  Once  the  program  modules  were  coded  and  had 
teen  cleansed  of  any  syntactical  ailments,  they  were  indi¬ 
vidually  tested.  Both  testing  harnesses  and  pregram 

stubs  were  used  at  different  stages  of  program  development. 
The  top  down  design  had  identified  those  key  modules  needed 
tc  support  the  function  cf  the  system.  The  first 

modules  coded  and  tested  were  thus  the  Database  Handler 
(XDBHNDLR)  and  the  Cpen  Case  Module  (X0PEN2)  .  Testing 
XDBHNDIR  required  development  of  a  harness  in  order  to 
input  expected  parameters  and  make  available  specific  data 
to  the  module.  The  emphasis  of  this  module  was  two-fold. 
First  it  was  expected  to  be  the  program's  interface  with 
the  case  databases,  and  as  such  had  to  properly  read  and 
write  specific  files  according  to  the  "type  cede"  presented 
to  it.  The  second  concern  was  contention.  Stepwise 
testing  cf  the  module  was  conducted.  A  "resting  harness 
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with  a  sample  data  set  was  used  to  exercise  the  Database 
Handler  until  it  performed  properly.  The  second  testing 
stage  was  to  use  multiple  inputs  over  the  network  to 
isolate  any  contention  problems  and  eliminate  them. 
Concurrently  the  Open  Case  module  was  undergoing  parallel 
testing  using  the  database  directly. 

2.  Integration  and  System  Testing 

Integration  testing  was  then  conducted  to  bring 
together  the  XDBHNDLE  and  X0PEN2  modules.  The  purpose  of 
this  stage  was  to  ensure  the  interface  between  the 
modules  was  in  accordance  with  design.  Once  these  programs 
were  in  this  stage,  the  same  sequence  was  utilized  to  test 
the  other  main  modules,  and  bring  them  up  to  the  integrated 
level . 

Ey  late  October  the  main  processing  modules  were 
integrated  and  the  limited  system  was  operating  satisfacto¬ 
rily.  The  system  re-design  and  development  discussed 

earlier  caused  testing  to  begin  anew.  At  that  time  the 
operating  system  version  was  changed  from  ?c  DOS  1.1  to 
EC  DOS  2.0.  The  network  and  hard  disk  software  were 

also  upgraded. 

Limited  time  for  completion  of  system  development 
and  coding  resulted  in  only  partial  system  testing  by  mid 
January  cn  *■  he  NES  prototype  system.  During  demonstration 
at  the  FKSO  site,  the  QDR  system  operated  properly  as  a 
single  user  system  tut  net  with  multiple  simultaneous 
transactions  over  the  network.  The  cause  was  net  deter¬ 
mined  at  that  time.  Orchid  Technology  and  Tallgrass  were 
contacted  to  discuss  the  difficulties,  resulting  in  an 
updated  release  of  both  software  packages  being  sent  to  NES. 

limited  system  testing  on  the  NPS  network  indi¬ 
cated  that  the  problem  had  been  corrected.  Subsequent 
operation  cf  the  QER  system  by  personnel  at  FMSO  (with  the 
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upgraded  software)  was  not  successful.  Multiuser  system 
failure  could  not  be  duplicated  at  NPS.  Reasons  for  the 
network  failure  at  FMSO  have  not  been  identified. 

3.  Response  Times 

Multiple  users  and  large  databases  affect  response 
time  cn  micro  computer  systems  to  a  large  degree.  Figure 
3.15  shows  the  time  required  for  specific  operations  with 
different  system  loads.  Where  depicted,  multiple  users 
are  performing  the  exact  same  operations  simultaneously. 
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Figure  3.15  Response  Times. 

These  times  give  an  idea  of  the  different  response 
the  user  can  expect  with  the  loadings  as  indicated.  The 
difference  in  times  used  by  adding  a  second  user  is  not 
significant.  However,  if  numerous  analysts  were  conducting 
operations  at  the  same  time  then  the  times  could  increase  to 
a  level  where  input  operations  would  be  signif icantly 


delayed.  The  differential  in  response  times  for  added  users 
reflects  two  items.  The  first  is  the  contention  induced  for 
packet  access  to  the  network,  which  represents  the  mam 

portion  cf  the  delay  time.  The  second  is  a  delay  due  tc 
internal  checking  in  XDBHNDLB  to  allow  only  one  of  the 

asynchronous  processes  access  to  the  database.  Time  differ¬ 
ences  between  the  operations  reflect  the  amount  of  data 
which  has  to  be  stored  into  the  database  as  well  as  the 

number  cf  different  databases  which  must  he  accessed  tc 

complete  the  operation  (2  for  posting  a  case,  4  for  closing 
a  case)  . 


IV.  COHCIOSIONS  AND  RECOMMENDATIONS 


A  prototype  system  is  designed  to  provide  an  interface 
for  users  and  acquaint  them  with  the  potential  value  of  an 
automated  operation.  It  allows  the  user  to  see  how  the 
final  system  will  present  and  accept  data  and  provides  the 
opportunity  to  modify  the  interface  before  final  system 
implementation.  Prototyping  allows  the  rapid  development  of 
a  system  but  generally  dees  net  contain  all  of  the  capabili¬ 
ties  of  an  operational  system. 

The  QDR  System,  although  a  prototype,  was  designed  with 
capabilities  beyond  normal  prototyping.  It  provides  not 
only  user  interface  capabilities,  but  also  full  database 
management  capabilit iss.  The  additional  features  were  added 
to  allow  the  QDR  system  to  be  placed  in  an  operational  envi¬ 
ronment  to  be  tested  and  to  aguaint  the  user  with  automated 
systems  and  their  operations.  To  provide  functionality,  the 
system  was  designed  for  multiple  users  to  access  the  data¬ 
base  files.  This  meant  that  the  system  allowed  for  record 
locking,  multiple  read/write  operations,  and  security  access 
to  the  system. 


A.  CCNCiaSIOHS 

The  design  and  implementation  of  an  automated  Quality 
Deficiency  Reporting  System  prototype  has  been  described  in 
this  study.  A  working  prototype  has  been  established  and  is 
available  for  future  evaluation.  Conclusions  drawn  from 
this  development  include: 

1.  The  prototype  software  design  meets  current  QDR 
processing  requirements  and  includes  PDREP  derived  data 
elements  identified  for  future  inclusion  in  the  QDR  System. 
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2.  There  are  two  main  operating  limitations  with  the 
current  system;  speed  of  processing  with  multiple  users  and 
limited  system  capacity  to  meet  increased  QDR  requirements. 

3.  The  NPS  prototype  system  demonstra red  the  feasibility  of 
accomplishing  QDR  processing  on  a  microcomputer  based 
system. 

4.  If  new  software  and  hardware  become  available  to  allev¬ 
iate  network  and  database  limitations,  the  prototype  could 
te  modified  to  provide  an  operational  system. 

E.  R ECO HHENDAT IONS 

1.  Continue  development  of  a  microcomputer  based  system  to 
provide  automation  of  the  QDR  workflow. 

2.  Consider  migration  to  a  minicomputer  or  mainframe 
computer  using  the  basic  prototype  design,  in  order  to  allow 
for  faster  response  time  and  growth  potential. 

The  recommendations  above  provide  for  the  user  tc  become 
familiar  with  the  automation  capabilities  that  can  be  imple¬ 
mented  in  the  QDR  processing  environment.  Additionally,  it 
opens  up  the  channels  for  user  feedback  to  system  designers 
that  are  working  on  future  versions  of  QDR  support  systems. 
The  initial  design  considerations  that  went  into  creating 
the  prototype  system  are  valid  for  mini/mainframe  computer 
implementation.  The  data  dictionary  used,  the  menus  and 
interface  screens,  and  the  security  considerations  will 
remain  valid  in  both  the  microcomputer  and  mini/mainframe 
computer  environments.  The  use  of  a  higher  level  language 
in  the  prototype  system  provides  the  potential  to  directly 
convert  the  algorithms  to  a  new  system. 

If  it  is  more  practical  tc  continue  utilizing  the  micro¬ 
computer  network,  the  size  of  the  database  could  be  expanded 
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by  the  use  of  35  ME  hard  disk  units,  thus  approximately 
doubling  the  system  capacity.  Additional  speed  for  the 
microcomputer  network  could  possibly  be  achieved  by 
converting  the  file  and  record  locking/unlocking  operations 
into  assembly  or  machine  language  routines  (although  this  is 
net  recommended  because  of  future  maintenance  headaches)  . 
Another  avenue  to  explore  is  the  acquisition  of  a  multi-user 
version  cf  dBase  II  that  was  recently  announced.  This  would 
allow  the  elimination  of  file  locking  and  control  currently 
accomplished  by  the  CDR  System  software,  and  with  a  small 
amount  cf  repregra cuing  the  XD3HNDLR  proqram  could  be 
eliminated. 

The  prototype  QDE  System  provided  a  starting  point  for 
future  growth  in  the  QDR  processing  environment.  The 
groundwork  that  has  teen  laid  can  be  utilized  for  either  a 
continuation  in  the  nicroccmputer  realm  or  can  be  utilized 
with  larger  computers. 
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APPENDIX  A 

GLOEAL  MEMORY  DEFINITIONS 


There  are  various  types  cf  memory  variables  utilized  by 
the  QDR  System.  These  variables  are  divided  into  Global  and 
Local  Variables.  Global  Variables  are  used  to  transfer  data 
between  programs  and  modules  and  are  designated  by  either  M: 
or  C:.  Local  Variables  are  utilized  for  internal  control 
within  programs.  These  variables  are  identified  by  U:  for 
XUPDATE,  H:  for  XDBHNDLR,  0:  for  X0PEN2,  etc. 

The  variables  listed  below  are  the  Global  Variables 
utilized  by  the  QDR  Syszem.  They  are  presented  as: 

Variable  Name  Using  Modules 

Description  Of  Variable 


C: JULIAN 


(CLOSREC,  LOGON,  MENU!,  XDBHNDLR, 
XOPES  2,  XUPDAT,  XXBISTAT,  XXMNSTAT) 


MEMORY  VARIABLE  WHICH  HOLDS  TODAYS  JULIAN  DATE.  THIS  DATE 
IS  GENERATED  BY  ACCESSING  THE  SYSTEM  CALANDER  AND  CONVERTING 
TO  A  JULIAN  DATE. 


C :  WHC 


(CLOSREC 
LOGON, 
RPTMENU 
SUPRPT2 
XOPE N2 , 


,  COGCNT,  C-REASGN.  DEPACK, 
MENU1,  OCASERPT,  QUERY, 

,  STATGEN,  SUPMENU1,  SUPRFTS, 
,  UTILMENU,  UTILNDX ,  XDBHNDLR 
XUPDAT,  XXBISTAT,  XXMNSTAT) 
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MEMORY  VARIABLE  THAT  HOLD  THE  LOGON  IDENTIFICATION  OF  THE 
ANALYST.  THIS  IS  CAPTURED  DURING  THE  LOGON  PROCESS. 


M:  ACTDISE  (XDBHNDLR,  X0PEN2  ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  ACTIO  N/D ISPOSITIO  N 
INSTRUCTIONS.  ORIGINALLY  CAPTURED  FROM  BLOCK  21  OF  THE 
SF  368. 


M:  ACTPT  (XDBHNDLR,  X0PEN2 ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  ACTION  POINT. 
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M: ACTTKN 


(XDBHNDLR,  XUPDAT) 


MEMO  R Y  VARIABLE  WHICH  IDENTIFIES  THE  ACTION  CODE.  ORIGINAL¬ 
LY  CAPTURED  FROM  BLOCK  21  OF  TBE  SF  368. 


M:CASE  (CLOS  REC ,  C-REASGN,  XDBHNDLH,  XOPEN2, 

XUPDAT) 

MEMORY  VARIABLE  USED  TO  CAPTURE  THE  NUMBER  OF  THE  QDR  CASE. 


M:  CAT  (C-REASGN,  XDBHNDLR,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  CLASS  OF  THE  QDP.  CASE. 

CASES  CAY  BE  EITHER  CATEGORY  1  (HIGH  PRIORITY)  OR  CATEGORY  2 
(NORMAL  PRIORITY).  ORIGINALLY  CAPTURED  FROM  THE  SF  368  OR 
QDR  MESSAGE. 


M:CAUSEC  (XDBHNDLR,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  CAUSE  CODE. 


M:CCOST  (XDBHNDLR,  XOPEN2 ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  ESTIMATED  CORRECTION 
COST.  ORIGINALLY  CAETURED  FROM  ELOCK  18  OF  SF  368. 


M:CLOSE  (CLOS  REC,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  DATE  THE  CASE  WAS  CLOSED. 
ORIGINALLY  ENTERED  UECN  CLOSING  THE  CASE. 


M:COG  (C-REASGN,  XDBHNDLR,  XOPEN2 ,  XUPDAT, 

XXBISTAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  COGNIZANCE  SYMBOL  FOR  THE 
ASSOCIATED  NSN .  ORIGINALLY  CAPTURED  FROM  BLOCK  5  OF  THE 
SF  368. 


M :  CO  STC  (XDBHNDLR,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  COST  CODE. 


M:CR  (CLOS  REC ,  XDBHNDLR,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  CREDIT  CODE. 


M: DAT  ES  (CLOS  REC ,  C-REASGN,  XDBHNDLR,  XOPEN2, 

XUPDAT,  XXBISTAT,  XXMNSTAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  CON CAT  IN AT  ION  OF  THE  MAJOR 
CATES  ASSOCIATED  WITH  THE  QDR  SYSTEM. 
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M:DEF  (XDBHNDLR,  X0PEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  TYPE  DEFECT  CODE 


M: DEFE  (XDBHNDLR,  XQPEN2 ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  DEFECT  RESPONSIBILITY  CCDE. 

M: DEF V  (XDBHNDLR,  XQPEN2  ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  DEFECT  VERIFICATION  CODE. 

M:  DETAILS  (XDBHNDLR,  XOPEN2 ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  DETAILS  OF  THE  QDR. 

ORIGINALIY  CAPTURED  FFOM  BLOCK  22  OF  THE  3F  368. 

M:DIS  (XDBHNDLR,  X0PEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  DISCOVERY  CODE. 
ORIGINALLY  CAPTURED  FEOM  BLOCK  22  OF  THE  SF  368. 

M:DITEM  (XDBHNDLR,  X0PEN2 ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  CONCATENATES  MODEL,  SERIAL  NUMBER  OF 
DEFICIENT  PART,  NEXT  HIGHER  ASSEMBLY,  AND  SUB  ASSEMBLY. 
ORIGINALLY  CAPTURED  FROM  3L0CK  16  OF  SF  368. 

M:  DOC  (XDBHNDLR,  XQPEN2 ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  TYPE  DOCUMENT.  ORIGINALLY 
CAPTURED  FROM  BLOCK  30  OF  THE  SF  368. 

M:  DOC  NO  (XDBHNDLR,  XOPEN2  ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  DOCUMENT  NUMBER.  ORIGINALLY 
CAPTURED  FROM  BLOCK  10  OF  THE  SF  368. 

M:  EPRC  (XD3HNDL3,  XOPSN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  EXTENDED  PRICE  OF  THE 

DEFICIENT  MATERIAL.  THE  EXTENDED  PRICE  IS  CALCULATED  BY 
MULTIPLYING  THE  QUANTITY  DEFICIENT  BY  THE  UNIT  PRICE. 


M:  FSCM 


(XDBHNDLR,  X0PEN2 ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  FEDERAL  SUPPLY  CODS  OF 
MANFACTURER.  ORIGINALLY  CAPTURED  FROM  BLOCK  7  OF  THZ 
SP  3  68. 


M:GOV  (XDBHNDLR,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  GOVERNMENT  FURNISHED 
MATERIAL.  ORIGINALLY  CAPTURED  FROM  BLOCK  14  OF  THE  SF  366. 


M:  ITEM  (XDBHNDLR,  XOPEN2 ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THAT  THE  ITEM  IS  NEW  CF  A 
REPAIR/ OVERHAUL  ITEM.  ORIGINALLY  CAPTURED  FROM  BLOCK  11  CF 
THE  SF  368. 


M:  KE  Y  (CLOSREC,  C-REASGN,  XDBHNDLR,  XCPEN2) 

MEMORY  VARIABLE  WHICH  CONTAINS  THE  DATABASE  ACCESS  KEY. 


MzLDATE  (CLOSREC,  XOPEN2) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  DATE  THE  CASE  WAS  TRANSMIT¬ 
TED  TO  THE  ITEM  MANAGER.  ORIGINALLY  ENTERED  UPON  TRANS¬ 
MISSION  OF  THE  CASE. 


M:  LOT  (XDBHNDLR,  XOPEN2  ,  XUPDAT) 

MEMORY  VARIA3LE  WHICH  IDENTIFIES  THE  MANUFACTURERS  LOT 
NUMBER.  ORIGINALLY  CAPTURED  FROM  BLOCK  165(3)  OF  SF  368. 


M;MFG  (XDBHNDLR,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  MANUFACTURERS  PART 
NUMBER.  ORIGINALLY  CAPTURED  FROM  3  LOCK  16  B  ( 3)  OF  SF  368. 


M:  NOMEN  (XDBHNDLR,  XOPEN2  ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  NOMENCLATURE  OF  THE  MATERIAL 
EEING  REPORTED  IN  THE  QDR.  ORIGINALLY  CAPTURED  FROM  BLOCK  6 
OF  THE  SF  368. 


M:  NS  N  (C-REASGN,  XDBHNDLR,  XO  PEN  2 ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  NATIONAL  STOCK  NUMEER. 
ORIGINALLY  CAPTURED  FROM  BLOCK  5  OF  SF  368. 
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M:  NU M 


(X0PEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  CONTRACT  NUMBER  UNDER 
WHICH  THE  REPORTED  MATERIAL  WAS  RECEIVED.  ORIGINALLY 
CAPTURED  FROM  BLOCK  10  OF  THE  SF  368. 


M:  09Q  (XDBHNDLR,  XOPEN2  ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  GS A  REGION  CODE 
FOR  9Q  ITEMS. 


M:  OP  E  N  (CLOSREC,  XOPEN2 ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  DATE  THE  CASE  WAS  OPENED. 
ORIGINALLY  ENTERED  BY  THE  SYSTEM  UPON  NEW  CASE  INPUT. 


MtORG  (XDBHNDLR,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  ORIGIN  CODE. 


M:  OT  F  (XDBHNDLR,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  OPERATING  TIME  AT 
FAILURE.  OFIGINALLY  CAPTURED  FROM  BLOCK  13  OF  THE  SF  368. 


MrOVEB  (XDBHNDLR,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  DATE  OF  MANUFACTURE/ 
OVERHAUL.  ORIGINALLY  CAPTURED  FROM  BLOCK  12  OF  THE  SF  368. 


MjQTYDEF  (XDBHNDLR,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  QUANTITY  OF  MATERIAL 
REPORTED  AS  DEFICIENT.  ORIGINALLY  CAPTURED  FROM  BLOCK 
15C  OF  THE  SF  36  8. 


M:  QT  YINS  (XDBHNDLR,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  QUANTITY  OF  MATERIAL 
INSPECTED  EY  THE  REPORTING  ACTIVITY.  ORIGINALLY  CAPTURED 
FROM  ELCCK  158  OF  THE  SF  36  8. 


M:  QT  YREC  (XDBHNDLR,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  QUANTITY  OF  MATERIAL 
RECEIVED  EY  THE  REPORTING  ACTIVITY.  ORIGINALLY  CAPTURED 
FROM  ELOCK  15A  OF  THE  SF  36  8. 


4  7 


M: QT YSTK 


(XDBHNDLR,  X0PEN2,  XUPDAT) 

MEMORY  V  ARI  ABLE  WHICH  HOLDS  THE  QUANTITY  OF  MATERIAL  IN 
STOCK  AT  THE  REPORTING  ACTIVITY  WHEN  THE  Q  DR  WAS  SUBMITTED. 
ORIGINALLY  CAPTURED  FROM  BLOCK  15D  OF  THE  SF  368. 


MlRDATE  (CLOSREC,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  DATE  RECEIVED  FROM  ORIGIN. 
ORIGINALLY  CAPTURED  FROM  THE  MAIL  ROOM  TIMESTAMP  ON  RECEIPT 
DATE. 


M:  REC 1  (CLOSREC,  XOBHNDLR,  XOPEN2) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  RECORD  NUMBER  OF  THE 
RECORD  BEING  PROCESSED.  THIS  IS  A  SYSTEM  GENERATED 
VARIABLE. 


M:  REOPEN  (CLOSREC,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  DATE  A  CLOSED  CASE  IS 
REOPENED.  ORIGINALLY  ENTERED  UPON  REOPENING  A  CLOSED  CASE. 


M:  REFCON  (XDBHNDLR,  XOPEN2  ,  XUPDAT) 

MEMORY  VARIABLE  WHICH  HOLDS  THE  REPORT  CONTROL  NUMBER. 
ORIGINALLY  CAPTURED  FROM  BLOCK  3  OF  THE  SF  368. 


M:  REFLY  (XDBHNDLR,  XUPDAT) 

MEMOEY  VARIABLE  WHICH  IDENTIFIES  THE  REPLY  RECEIVED  FROM 
THE  ITEM  MANAGER.  ORIGINALLY  CAPTURED  FROM  BLOCK  32  OF 
THE  SF  368. 


M:  RETC  (XDBHNDLR,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  RETURN  CODE  OF  THE  QDR. 


M:  RI  MDATE  (CLOSREC,  XUPDAT) 

MEMOEY  VARIABLE  WHICH  HOLDS  THE  DATE  RETURNED  FROM  THE  ITEM 
MANAGER.  ORIGINALLY  ENTERED  UFON  RECEIPT  OF  A  RESPONSE 
FROM  THE  ITEM  MANAGER. 


M:  SCR  (XDBHNDLR,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  SCREENING  CODE. 
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S:SCFCTY 


(XD3H  NDL3 ,  XUPDAT) 

MEMCR  i  V  ARI  ABLE  SalCF:  IDENTIFIES  THE  SCREENING  iUANTITY 


M  :  S  X 


(XC3HNCLE,  X0FEN2 ,  XUPDAT) 


MZMCFY  V  A  R  I  A  EL  E  BHICfc  IDENTIFIES  THE  SUPPLY  M  AN  AGE  KENT 
INFO  F  M  AT IC  N  CODE-  OFIGINALLY  CAPTURED  FECK  BLOCS  5  CF  THE 
SF  3  t  £  . 


1:3 I  A  ID  SC 


(  iDBH  !>  DL  F  ,  XUPDAT) 


MEMORY  VARIABLE  R'HICE  IDENTIFIES  THE  STATUS  CODE. 


:  T I  E  E  (LOGON,  XDBHNDLS,  XOPEN2) 

MEMORY  VARIABLE  VdICB  HOLDS  THE  TIMESTAMP.  THIS  IS  A 
SYSTEM  VARIABLE  USED  TO  LOCK  INDIVIDUAL  RECORDS. 


S :  T  Y  E  E 


(CLOSEEC,  C-ESASSN,  XlBHNDLE,  XCPEN2, 
XUPDAT) 


MEMORY  VARIABLE  SHICE  HOLDS  THE  CODE  SPECIFYING  THE  CAT  ABAS 
HANDLER  ACCESS  CCDE. 


K :  U I 


(XDEHNCLf,  XOFEN2 ,  XUPDAT) 


MZMCFY  VARIABLE  V.HICE  HOLDS  IRE  UNIT  Or  ISSUE  FGF.  THE 
REPORTED  MATERIAL.  ORIGINALLY  CAPTURED  FROM  THE  KL-N 
EASED  CN  TEE  NSK  BEING  REPORTED. 


K :  U I C 


(XC3HKCL5,  XOPSN2,  XUPDAT) 


MEMORY  VARIABLE  *BICh  HOLDS  THE  UNIT  IDENTIFICATION  C 
THE  ACTIVITY  SUBMITTING  THE  QDR.  ORIGINALLY  CAPTURED 
ELQCK  1 A  CF  THE  SF  3  6  6. 


y  •  T  z  z  f 
r,  .  o  r  r  v. 


(XDBHNDLr,  XGFEN  2,  XUPi 


MEMORY  VARIABLE  «HICE  HOLDS _ IE E  yNIT_PrICE  FOR  THE 
M.  A  I Z  R  I  A  L  .  C  RI  G  I  N  A  L  L  Y  CAPTURED  RFC  M  T  H  a  ML”  N  HAS  ED 
FZPOrTEC  NSN. 


RE  PC  FT  EE 


M  :  7  L  C 


(CLOSREC,  XCBHNDLR,  XUPDAT) 


MEMORY  VARIABLE  SHICH  IDENTIFIES  THE  V  r.N  DO  F.  LIABILITY 


CCDE 


lu  ir« 
Ulu 


M:  WHO 


(C-REASGN,  XDBHNDLR) 

MEMO R Y  VARIABLE  WHICH  IDENTIFIES  THE  INDIVIDUAL  CREATING 
THE  RECORD.  THIS  IS  A  SYSTEM  VARIABLE  WHICH  IS  CAPTURED 
FROM  TEE  SYSTEM  LOGON. 


MlWNTY  (XOPEN2,  XUPDAT,  XDBHNDLR) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  WARRANTY  STATUS  OF 
ITEM.  ORIGINALLY  CAFTURED  FROM  ELOCK  19  OF  SF  368. 


M :  WUC  (XDBHNDLR,  XOPEN2,  XUPDAT) 

MEMORY  VARIABLE  WHICH  IDENTIFIES  THE  WORK  UNIT  CODE. 
ORIGINALLY  CAPTURED  FROM  BLCCK  20  OF  THE  SF  368. 


APPENDIX  B 

QDB  DATABASE 

FILE  STRUCTURES 

STROCTU  RE 

FOB  FILE: 

E:OPEN  1 

.  DBF 

FLD 

NAME 

TYPE 

WIDTH 

001 

CASE 

C 

0  07 

002 

CCG 

C 

002 

003 

NSN 

C 

013 

004 

CAT 

c 

001 

005 

NCMEN 

c 

019 

006 

UIC 

c 

006 

007 

UI 

c 

002 

008 

QTYDEF 

N 

006 

009 

UPRC 

N 

0  09 

010 

EFRC 

N 

0  12 

011 

ORG 

C 

003 

012 

DCC 

C 

001 

013 

DCCNO 

c 

0  14 

014 

DATES 

c 

046 

015 

REPCON 

c 

0  12 

016 

FSCM 

c 

006 

017 

TIME 

c 

Oil 

018 

WHO 

c 

004 

019 

NUM 

c 

017 

020 

CE 

c 

001 

021 

SCR 

c 

003 

022 

SB 

c 

002 

023 

0  9Q 

c 

001 

024 

DEF 

c 

002 

025 

VLC 

c 

001 

026 

ACTPT 

c 

Oil 

027 

SCRQTY 

N 

006 

**  TOTAL 

** 

00219  EYTES 

STRUCTURE 

FOR  FILE: 

C  :0  PEN  2 

.  DBF 

FLD 

NAME 

TYPE 

WIDTH 

001 

CASE 

C 

007 

002 

QTYINS 

N 

006 

003 

QTYP.EC 

N 

006 

004 

QTYSTK 

N 

006 

005 

DEFV 

C 

001 

006 

DEFR 

C 

001 

007 

ITEM 

c 

001 

008 

OVER 

c 

005 

009 

OIF 

c 

005 

010 

GCV 

c 

001 

Oil 

TIME 

c 

0  1 1 

012 

WHO 

c 

004 

013 

D  ITS  M 

c 

035 

014 

CCOST 

N 

0  12 

C 15 

WNTY 

c 

001 

016 

WUC 

c 

007 

017 

DIS 

c 

002 

018 

019 

020 

021 

022 

023 

024 

025 

026 

027 


DETAILS 

REPLY 

ACTTKN 

COST  C 

STATUSC 

CAUSEC 

RETC 

ACTDISP 

MFG 

LOT 


**  TOTAL  ** 


C  1  20 

C  120 

C  003 

C  001 

C  002 

C  001 

C  001 

C  001 

C  016 

C  009 

003  86  BYTES 


STRUCTURE  FCB  FILE:  D:CLOSE1  .DBF 


[<*->• 


v.: 


FLD 

001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

Oil 

012 

013 

014 

015 

016 

017 

018 

019 

020 

021 

022 

023 

024 


025 

’•V  •’ 

026 

■  *•'«  • 

027 

•  •  «  • 

•  m  . 

**  1 

& 

v: 

FLD 

»  '«  * 

001 

*•: 

002 

003 

►  .* 

0C4 

005 

006 

C07 

008 

■  *.* 

009 

>•/ 

010 

:•  ’ 

01 1 

8 


NAME 

CASE 

CCG 

NSN 

CAT 

KCMEN 

UIC 

UI 

TYDEF 
ERC 
EFRC 
OBG 
DCC 
DCCNO 
DATES 
REPCON 
F  SCM 
TIME 
WHO 
NUM 
CR 
SCR 
SM 
09Q 
DEF 
VIC 
ACTPT 
SCEQTY 


TYPE 

C 

C 

C 

C 

C 

C 

c 

N 

N 

N 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

N 


WIDTH 

007 
002 
013 
001 
0  19 
006 
002 
0  06 
009 
0  12 
003 
001 
0  14 
046 
0  12 
0  06 
Oil 
004 
017 
001 
003 
002 
001 
002 
001 
Oil 
006 


DEC 


002 

002 


00219  BYTES 


STRUCTURE  FCF  FILE:  I:CLOSE2  .DBF 


NAME 


CASE 

CTYINS 

QTYRSC 

QTYSTK 

DEFY 

DEFR 

1 1  EM 

OVER 

CTF 

GCV 

TIME 


TYPE 

C 

N 

N 

N 

C 

C 

c 

c 

c 

c 

c 


WIDTH 

007 

006 

006 

006 

001 

001 

001 

005 

005 

001 

on 


DEC 


52 


012 

WHO 

C 

0  04 

013 

D  ITS  M 

c 

0  35 

014 

CCOST 

N 

0  12 

015 

WtiTY 

C 

001 

016 

wuc 

c 

007 

017 

DIS 

c 

002 

C  1 8 

DETAILS 

c 

1  20 

019 

REPLY 

c 

1  20 

020 

ACTTKN 

C 

0  03 

021 

CCSTC 

c 

001 

022 

STATUSC 

c 

002 

023 

CAUSEC 

0 

001 

024 

RETC 

c 

001 

025 

ACTDIS  E 

c 

001 

026 

MFG 

c 

0  16 

027 

LOT 

c 

009 

**  TOTAL 

** 

003  86 

BYTES 

STRUCTURE 

FOR  FILE: 

E : COG  .DBF 

FLD 

NAME 

TYPE 

WIDTH 

001 

COG 

C 

002 

002 

IM 

c 

007 

003 

C  CUN 

N 

004 

**  TOTAL 

** 

000  14 

BYTES 

STRUCTURE 

FOR  FILE: 

D: TECHCODE . DBF 

FLD 

NAME 

TYPE 

WIDTH 

001 

NAME 

C 

0  20 

002 

TECHCODS 

c 

0  04 

003 

PSWD 

c 

008 

C04 

L  CGG E  D 

c 

001 

005 

ASSIGNED 

N 

004 

006 

ACTIVE 

N 

004 

007 

TRANS  MIT 

N 

0  04 

008 

RESPOND 

N 

0  04 

009 

CLOSED 

N 

004 

**  TOTAL 

** 

000  54 

BYTES 

STRUCTU  RE 

FCR  FILE: 

E :  ADDRESS  .DBF 

FLD 

NAME 

TYPE 

WIDTH 

001 

IM 

C 

007 

002 

TITLE 

c 

0  18 

003 

CCMM AN  D 

C 

040 

004 

COMMA  ND2 

0 

0  40 

005 

ATTN 

C 

0  15 

006 

STREET 

c 

0  20 

007 

CITY 

c 

0  20 

008 

STATE 

c 

002 

009 

ZIP 

C 

0  05 

01  0 

COUNT 

N 

004 

**  TOTAL  ** 


00172  BYTES 


STRUCTU  RE 

FOR  FILE : 

D : WHERDIS  .DBF 

FLD 

NAME 

TYPE 

WIDTH 

001 

CODE 

C 

002 

002 

TEXT 

c 

0  20 

**  TOTAL  **  030  23  EYTES 


FLD 


001 

002 

003 

004 


STRUCTURE  FOR  FILE:  D  :  FIL  ES  T  AT .  DBF 


NAME 


OPEN  1 
OPEN  2 
C LOS  El 
CLOSE2 


**  TOTAL  ** 


TYPE 


WIDTH 


C 

C 

c 

c 


004 

004 

004 

004 


000  17  EYTES 


STRUCTURE  FOR  FILE  : 


FLD 

NAME 

TYPE 

001 

YEAR 

C 

CO  2 

TOTALS 

N 

C  03 

LAST 

C 

D: BIWKSTAT. DBI 

WIDTH 

004 

005 

005 


**  TOTAL  ** 


000  15  BYTES 


4P PENDIX  C 

DATA  ELEMENT  DEFINITIONS 


This  provides  a  list  of  the  Data  Element  pictures  tha 
used  an  various  QDR  programs.  The  column  labeled 
Element"  contains  a  short  description  of  tha  actual  El 
that  the  Variable  represents.  The  column  "ID"  contain 
variable  name  associated  with  the  Data  Element.  The 
further  defined  in  Appendix  A.  The  "Type"  is  either 
acter  "C"  or  numeric  "N",  with  a  length  as  shown. 
"Picture"  shows  the  size  and  character  type  of  each 
Element,  standard  representations  are  used: 


•A'  -  Alphabetic 
*9*  -  Numeric,  0-9 

'X*  -  Either  numeric  cr  alphabetic 


Data  Element 

Case  Number 

Cognizance 

Category 

Nomenclature 

QIC 

Unit  of  issue 
Unit  Price 
Quantity  Def. 
Quantity  Insp. 
Quantity  Kecvd 
Qty  in  Stock 
Extended  Price 
Origin 

Deficiency  Ver 
Deficiency  Resp 
Type  Document 

Discovery  Date 
Date  Rcva  fm  Org 
Cpen  Date 
Date  Ltr  Typed 
Screen  Ret  cate 
Interim  Resp  Dat 
Date  rtn  fm  IM 
Close  Date 
Reopen  Date 
Dates  ccncat'ned 
Date  change  ID 


Report  Control  # 
Document  Number 
F  SC  M 

Time  Stamp 
Analyst  Code 
New- Repair/Cvhl 
Date  Kfg/Cvhl 
CDn  Time-Failure 
Gdvnment  Furnish 

Work  Unit  Cede 
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Picture 

Type 

M: CASE 

*  999999A 1 

A7 

M:CCG 

•  XX  • 

A  2 

B :  CAT 

'  9  1 

A 1 

M : NCMEN 

•  XXX.  .  .XX* 

A  1  9 

M:  uic 

' AXXXXX* 

A6 

m:  UI 

'  AA  ' 

A2 

M.-UPFC 

•999999.99* 

N9 

M : QTYDEF 

•999999' 

N6 

Ms QTYINS 

•999999* 

N6 

M : QTYREC 

' 999999' 

N6 

M: QTYSTK 

' 999999* 

N6 

B: E  EEC 

•  999999999.99 

'  N  1  2 

M  :  0  EG 

•XXX* 

A3 

M: DEFV 

•  A* 

A  1 

M : DEFR 

'A* 

A 1 

M:  DCC 

'  9  * 

A  1 

M: DD ATE 

•  99999  • 

A5 

M : R  D  ATE 

•  99999  ' 

A5 

a: open 

•  99999* 

A5 

H : L  D  ATE 

•  99999  * 

A5 

M: SCFDAT 

•  99999* 

A  5 

M : I RDATE 

'  99999  ' 

A5 

M: RIMDAT 

•99999* 

A5 

M: CLCSE 

i  99999  « 

A5 

a : RECPEN 

•  99999  ' 

A  5 

a: DATES 

See  note  1 

A4  6 

a: d ateci 

*X*  See  note 

2  A1 

a: REPCON 

See  note  3 

A  1 2 

M : DCCNO 

See  note  4 

A  14 

M: FSCa 

' XXXXXX* 

A6 

B: TIBE 

'99999999999  • 

All 

a:WHC 

' XXXX  ' 

A  4 

a: ITEM 

'A* 

A  1 

a: OVER 

'  99999  * 

A5 

a:  OTF 

' A9999  • 

A  5 

a:  GCV 

'  X' 

A  1 

B :  W  UC 

' xxxxxxx  • 

A7 

t  ar 
"Dat 
emen 
s  the 
ID  is 
char- 
The 
Data 


t+n)  (i) 


Eiscoverv  Code 

N 

DIS 

*  A  A  * 

A2 

Details  Section 

M 

DETAILS 

•XX. . . 198. .X» 

A198 

Return  Cede 

M 

RETC 

•  9  • 

A 1 

Record  Variable 

« 

R  EC  1 

. 99999A • 

A6 

Contract  Number 

a 

NUK 

See  note  5 

A 1 7 

Credit  Cede 

H 

CR 

•  A  • 

A  1 

Screening  Cede 

M 

SCR 

•XXX* 

A3 

Reply  Section 
Action  Cede 

M 

REELY 

•XX. . 198. . X* 

A  1  9  8 

a 

ACTTKN 

•AAA* 

A3 

Ccst  Code 

M 

CCSTC 

•  A* 

A 1 

Status  Cede 

a 

STATUSC 

•  AA  • 

A2 

Cause  Code 

a 

C ACS EC 

'A* 

A 1 

Action  Eisp'n 

M 

44 

ACTDISP 

'A' 

A 1 

SMIC 

M 

SM 

'  AX' 

A2 

9Q  Region  Cede 

a 

09C 

'  X« 

A  1 

Type  Defect 

a 

DEF 

•  99' 

A2 

Vender  Liab  Cods 

M 

VIC 

•  A' 

A1 

Action  Point 

M 

ACTPT 

' AX  XX XX9 9 9 99  • 

A  1  1 

Fart  Number 

M 

M  FG 

•XX.  .  16.  .XX' 

A  1 6 

Lot/ser/batch 

a 

LCT 

•XXXXXXXXX' 

A  9 

NSN 

a 

NSN 

See  note  6 

A  1  3 

lype/Model/Ser 

0 

aCEEL 

•xxxxxxx • 

A7 

Eef  Item  Ser  # 

0 

DEFSER 

' XXXXXX' 

A6 

Higher  Assy 

0 

HASSY 

•XXXXXXXXXX' 

A 1  0 

Sub  assembly 

0 

SASSY 

•XXXXXXXXXXXX* 

A12 

Eef  Item 

M 

DITEM 

•XXXX  35  XXXX' 

A35 

Est  Ccrr  Cost 

a 

CCCST 

•995999999.99 

N  1  2 

Harr  ant v 

a 

W  NTY 

'  A' 

A 1 

Screen  quantity 

NOTES: 

M 

SCRQTY 

»  999999' 

N6 

1.  All  dates,  followed  by  a : DA TEC I ,  are  concatenated 
the  variable  Z:DATES  for  storage  into  the  daiab 
This  is  necessary  to  minimize  the  number  of  vari 
active  in  the  CDs  programs,  and  due  to  the  32 
limit  per  database. 

2.  This  variable  is  the  last  field  in  MrDATES.  V 

are  either  a  blank,  "  N  ”  f  or  "*  ”.  "N"  depicts  a 

formed  case  that  has  net  been  accounted  for  in 
statistics.  A  shows  that  a  date  was  ch 

during  a  case  update.  These  are  blanked  after  st 
tics  are  calculated. 

3.  Report  Control  Number  (RCN)  •  XXXXXX-99-99  99  • 

4.  M : DOC  NO  PICTURE  ' XXXX XX -99 99- 99 9 9  ' 

5.  Contract  number  picture  '  XXXXXX-99-A-9999-9999  ' 

6.  NS  N  (FSC  +  NATO  +  FIIN)  •  9999-XX-XXX-9999' 


tn  ni  M  pi  m,p>  pi 

Ct-tl  (PH*  POM  I*- 

t-'idi+rc  <TiMm:J 
trt  «l>  — *(T>  MtD  (f)  rf 

I  pi(I)S  ID  O 


APPENDIX  D 
QDR  PROGRAMS 


I.  LOGON  MODULE . 59 

II.  LOCKOUT . 62 

III.  MAIN  PROCESSING  MODULE . 63 

IV.  NEW  CASE  INPUT  MODULE . 66 

V.  CASE  UPDATE  MODULE . 82 

VI.  CASE  CLOSING  MODULE .  101 

VII.  CATA  BASE  HANDIER  MODULE .  106 

VIII.  SUPERVISOR  MENU .  127 

IX.  SUPERVISOR  UTILITY  MENU .  129 

X.  USER  REPORT  MENU .  132 

XI.  SUPERVISOR  REECRT  MENU .  134 

XII.  QUERY  MODULE .  138 

XIII.  STATISTICS  GENERATION  MODULE .  158 

XIV.  JULIAN  DATE  CONVERSION  MODULE .  163 

XV.  COG  COUNT  MODULE .  164 

XVI.  EI-WEEKLY  STATISTICS  REPORT  MODULE  .  166 

XVII.  MONTHLY  STATISTICS  REFORT  MODULE . 172 

XVIII.  SORTED  LISTING  REPORT  MENU  .  182 
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XIX.  CASE  REASIGNMENT  MODULE . 190 

XX.  ITEM  MANAGER  FILE  UPDATE .  192 

XXI.  CCG  FILE  UPDATE  MODULE . 197 

XXII.  DATA  BASE  PACK  MODULE . 203 

XXIII.  ANALYST  FILE  UEDATE  MODULE . 205 

XXIV.  PASSWORD  FILE  UPDATE  MODULE . 210 

XXV.  DATA  BASE  RE-INDEX  MODULE . 212 

XXVI.  OPEN  CASE  REPCET . 214 


I.  LOGON  MODULE 


******* * ************* ****** ******************************** 


j|rajr 

**  Date:  22  Nov  1  983  ** 

**  Version:  1.0  ** 

**  Module  Name:  LOGON  ** 

**  Module  Purpose:  Provide  Password  Logon  Facilities  ** 

**  for  the  QDR  System  ** 

**  ** 

**  Module  Interface  Definition  ** 

**  Inputs:  None  ** 

**  outputs:  C:  JULIAN,  C:WH0  ** 

**  ** 

**  Module  Processing  Narrative  Description:  ** 

**  Accepts  The  Password  From  The  Operator,  Val-  ** 

**  idates  The  Password ,  and  Calls  The  Necessary  ** 

**  Modules  ** 

**  ** 

**  Superordinate  Modules:  None  ** 

**  Subordinate  Modules:  SUPMENU1,  MENU1,  LOCKOUT  ** 

**  Author:  R.  G.  NICHOLS  ** 

**  ** 


***************************  ******************************** 


SET  TALK  OFF 

SET  BELL  OFF 

SET  COLOR  TO  112,3 

SET  EXACT  ON 

SET  COLON  OFF 

STORE  T  TO  V:CONTINUE 

*****  Accept  ID  of  Person  Logging  On  To  The  System 

DO  WHILE  V:  CONTINUE 
ERASE 

STORE  '  •  TO  C:WHO 

3)  10,29  SAY  ’ENTER  YOUR  ACCESS  I.D.* 

a)  11,37  GET  C:WHO 

READ 

STORE  !  (C:WH 0)  TO  C:WHO 
IF  C :  W HO  =  'QUIT' 

QUIT 

ENEIF 

*****  validate  ID  To  See  If  A  Valid  User  Is  Logging  On 


USE  D  : TECHCO D E  INDEX  D:  T  ECH 
FIND  SC:WHO 
DO  WHILE  #  =  0 

3  13,28  SAY  'ACCESS  I.D.  NOT  ON  FILS' 
a  14,33  SAY  'PLEASE  REENTER' 

STCRE  •  •  TC  C:WH0 

a  11, 37  GET  c:  WHO 
READ 

STCRE  ! (C: WHO)  TO  C: W  HO 
IF  C:  WHO  =  'QUIT' 

QUIT 

ENEIF 

FIND  SC:WHO 
ENDDC 

STORE  F  TO  V: LOGGED 


*****  Check  To  See  If  Previously  Logged  On 
TF  tOGGEC  O  •  • 

1  16,28  SAY  'USES  CURRENTLY  LOGGED  ON* 
a  17,22  SAY  ‘LOGON  TERMINATED' 

3  23,0  SAY  ‘  ' 

STCRE  T  TO  V: LOGGED 
ENCIF 

*****  Allow  Three  Attempts  to  Enter  The  Correct  Password 

IF  .  NCT.  VrLOGGED 

STORE  2  TO  V: ATTEMPTS 

a)  16,30  SAY  'ENTER  YOUR  PASSWORD' 

3)  17,30  SAY  '  FOLLOWED  BY  <CR>' 

SET  CONSOLE  OFF 
3)  19,35  SAY  '  ' 

STCRE  T  TO  V : T EUE 
DO  WHILE  VrTRUE 

STCRE  '  '  TC  VrPSWD 

ACCEPT  TO  VlESWD 

IF  VrATTEMPTS  =  0  .AND.  PSWD  <>  V:PSWD 
SET  CONSOLE  ON 

*****  if  Three  Unsuccessful  Passwords  Are  Entered,  Cal] 
*****  fCr  system  Lockup  Pregram 

DO  CrLOCKCUT 
EL  SE 

IF  PSWD  <>  VrPSWD 

STORE  VrATTEMPTS- 1  TO  VrATTEMPTS 
3  21,27  SAY  'INCORRECT  PASSWORD  ENTERED' 

3  19, 35  SAY  '  CHS  (7) 

ELS  E 

STORE  F  TO  VrTRUE 
ENDIF 
ENDIF 
ENDDO 

SET  CONSOLE  ON 
REEL  LOGGED  WITH  '*' 

USE 

SET  EXACT  OFF 
RELEASE  ALL  LIKE  Vr* 

*****  if  Either  supervisor  is  Logging  Or*  The  System  Ca. 
*****  per  Supervisor  Menu  To  Be  Displayed  Otherwise 
*****  Display  General  User  Menu 

IF  Cr  WHO  =  ' 00 0 C  '  .OR.  CrWHO  =  '0001' 

DO  CrSUPMENUI 
ELCE 

~DO  CrMENUl 
ENCIF 

STORE  T  TO  VrCCNTINUE 

*****  Allow  The  Logged  User  To  Logoff 

USE  DrTECHCODE  INDEX  Dr  TECH 
FIND  SCrWHC 
IF  #  =  0 
ER  ACE 

3  10,32  SAY  'LOG  OFF  FAILURE'+CHR  (7) 

3  11.27  SAY  'CONTACT  SYSTEM  SUPERVISOR' 

3  23,  26  SAY  'STRIKE  ANY  KEY  TO  CONTINUE  ' 

WAIT 

ELSE 

REEL  LOGGED  WITH  '  ' 

USE 


****  * 
***** 
***** 


*****  Clear  The  Screen,  Read  The  Clock  And  Display  Th 
*****  Legged  Off  Message  and  The  Time 

ERASE 

STORE  "  "  TC  V:  DUMMY 

FCKE  6  1  44  0  ,  180,  44,  205,  33,  137,  22,  13,  24 
137,  14,  15,  240,  195 
SET  CALL  TO  61440 
CALL  V: DUMMY 

STORE  STR (PEEK (614 56) ,2)  TO  V:HOUR 
STORE  STR  (PEEK  (61455)  ,2  TO  V:MIN 
STORE  STR  (PEEK  (614  54  ,2)  TO  V:SEC 
IF  $<V:  HOUR.  1,1  )="  » 

STORE  ”0  ”  +  $  (V:  HOUR,  2,1)  TO  V:HOUR 
ENDIF 

IF  $(V:  MIN.  1,1)  ="  •• 

STORE  "0  H+$  (V:  M  IN ,  2 , 1 )  TO  V  :  MIN 
ENDIF 

IF  $(V:  SEC.  1,1)  ="  " 

STORE  ”0"+$  (V:SEC,2,  1)  TO  V:SEC 
ENDIF 

STORE  V  :  HOU  E  +  *•:"♦  V  :MIN  +  ";  "  +  V:  SEC  TO  M.-TIME 
3  8,30  SAY  ’LOG  OFF  COMPLETED  AT' 

3  10,36  SAY  M:TIME 
RELEASE  ALL 
STORE  T  TO  V:CONTI  NUE 
ENDIF 
ENDIF 

3 *  22,  28  SAY  ’PRESS  ANY  KEY  TO  CONTINUE  ' 

WAIT 

USE 

ENDDC 

*****  NOTE:  Thi?  Program  Will  Continue  To  Accept  Lego 
*****  Until  The  Quit  Command  Is  Entered 


*****  fnE  OF  PROGRAM 


II.  LOCKOUT 


***  * *******  ***  *  ***  *  *  ******  ********************************* 


**  ** 

**  Cats:  22  Nov  1983  ** 

**  Version:  1.0  ** 

**  Medals  Name:  LOCKOUT  ** 

**  Module  Purpose:  Tc  Lock  The  System  After  An  Illegal  ** 

**  Logon  Attempt  ** 

**  ** 

**  Module  Interface  Cefiniticn  ** 

**  Inputs:  None  ** 

**  Outputs:  None  ** 

**  ** 

**  Module  Processing  Narrative  Description:  ** 

**  This  Program  Will  Display  An  Illegal  Logon  ** 

**  Message  and  Will  Sound  The  Buzzer  ** 

**  ** 

**  Superordinate  Modules:  LOGON  ** 

**  Subordinate  Modules:  None  ** 

**  Author:  R.  G.  NICHOLS  ** 

**  ** 


***************************  ******************************** 

SET  TALK  OFF 
SET  CCLCR  TC  4,4 
STORE  T  TO  V:  CuNTINU  E 
STORE  T  TO  V:TOGGLE 

*****  clear  The  Screen  and  Display  The  Illegal  Access 
*****  Message 

ERASE 

DO  WHILE  V : CONT I NU  E 
STORE  5  TO  V: INNER 
DC  WHILE  V: I N  NER  >  0 
IF  V :  TOGGLE 

a  10,29  SAY  'ILLEGAL  ACCESS  ATTEMPT' 

S  21,  0  SAY  '  '  ♦  CHR  (7) 

ELSE 

2  10,29  SAY  '  ' 

a  21,  0  SAY  '  ' 

END  IF 

STORE  V:INNER-1  TO  V :  I  NN  E  E 
ENCDO 

IF  V : TOGGLE 

STORE  F  TO  V: TOGGLE 
2  L  ej 

STORE  T  TO  V: TOGGLE 
ENCIF 
END  DO 

*****  NOTE:  The  System  Must  Be  Rebooted  Tc  Exit  From 
*****  An  Illegal  Access  Attempt 


*****  £NC  OF  PROGRAM 


III.  MAIN  PROCESSING  MODULE 


***********  ****  ***  ***************************************  ** 


**  ♦* 

**  DATE:  15  NOVEMBER  1983  ** 

**  VERSION:  1.0  ** 

**  MODULE  NAME:  MENU  1  ** 

**  MODULE  FURPOSE:  FPOVIDE  THE  USER  A  MENU  OF  ALL  ** 

**  PROCESSING  OPTIONS  AVAILABLE  TO  HIM/HER  IN  ** 

**  THE  QDR  SYSTEM.  ** 

**  MODULE  INTERFACE  DEFINITION  ** 

**  INPUTS:  C :WHO  ** 

**  OUTPUTS:  C: JU  LIAN  ** 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  ** 

**  DISPLAYS  AIL  PROCESSING  OPTIONS  AVAILABLE  TO  ** 

**  THE  USER.  UPON  USER  SELECTION.  CALLS  THE  ** 

**  APPROPRIATE  MODULE  FOR  CONTINUED  PROCESSING  ** 

**  ALLOWS  USEE  TO  EXIT  FROM  THE  QDR  SYSTEM.  ** 

**  ** 

**  SUPEROSDINAT  E  MODULES:  LOGON  ** 

**  SUBORDINATE  MODULES:  CP EN , CLOSE , UPDAT , LTR , RPTMENU ,  ** 

**  QU  ERY  ** 

**  AUTHOR:  J.G.  BOYNTON  &  R.G.  NICHOLS  ** 

**  ** 


*********************************************************** 
*****  THIS  SECTION  ACCESSES  THE  SYSTEM  DATE 
STORE  TO  V: DU  M MY 

POKE  61440,  180,42,  205,  33  ,  137,  22,  13,  240,  137,; 

14,  15,  240.  195 
SET  CALL  TO  61440 
CALL  V: DUMMY 

STORE  PEEK  (6 1454)  TO  V:MM 
STORE  PEEK  (61453)  TO  V:DD 

STORE  PEEK ( 6 14 56) *  2 5 6  +  PEEK (61455)  -1900  TO  V:YY 

*****  THIS  SECTION  CONVERTS  THE  SYSTEM  DATE  TO  A  JULIAN  DATE 

CO  CASE 

ricE  v*MM  =  01 

“STORE  V:  DD  TO  V  :D  AY 
CASE  V:  M  M  =  02 

STORE  V:  DD  ♦  3  1  TO  V:  DAY 
C  A  CF  VMM  =  03 

“STORE  V:  DD  +  59  TO  V:CAY 
CASE  V:MM  =  04 

STORE  V:  DD  +  90  TO  V: DAY 
CASE  V : M M  =  05 

STORE  V:DD  +  120  TO  V  :  DA  Y 
CASE  V:MM  =  06 

STORE  V:DD  +  1 51  TC  V :EAY 
CASE  V : M M  =  07 

STORE  V:DD  ♦  181  TO  V :DAY 
CASE  V:MM  =  08 

STORE  V: D D  ♦  2  12  TO  V :CAY 
CASE  V:MM  =  09 

STORE  V:DD  ♦  243  TO  V  : DA Y 
CASE  V:MM  =  10 

STORE  V: DD  +  273  TO  V : CAY 
CASE'  VMM  =  11 

STORE  V: DD  +  304  TO  V : CAY 
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CASE  V:  MM  =  12 

SICEE  V:DD  +  334  TO  7:CAY 
ENDCASE 

IF  INI  (7:  YY/4)  *4  =  7  :  YY  .AND.  V :  D  AY  >=  60 
IF  V : MM=  02  .AND.  V:DD=  29 
STOFE  V:D AY  TO  V :DAY 
ELSE 

STOFE  V:DAY  +  1  10  V: D  AY 
ENCIF 
ENDIF 

STORE  V :  YY  *  1000  ♦  V :  DA  Y  TO  V:JULIAN 
STORE  STR  (V  iJULIAN,  5)  TO  C:JULIAN 
RELEASE  ALL  EXCEPT  C  :* 

STORE  T  TO  V: CONTINUE 
CO  WHILE  V  :  CONT  INUE 
ERASE 

SET  TALK  CFF 

STORE  '  '  TC  V:  CHOICE 

TEXT 


WELCOME  TO  THE  QDR  AUTOMATED  TRACKING  SYSTEM 


1  -  OPEN  NEW  RECORD 

2  -  CLOSE  RECORD 

3  -  UPDATE  RECORD 

4  -  ORIGINATE  LETTER 

5  -  REPORT  GENERATION 

6  -  QUERY 

7  -  EXIT  FROM  THE  SYSTEM 


ENTER  YOUR  CHOICE 

ENDTEXT 

2  19,30  GET  V:CHOICE 

READ 

■> 

IF  7 : CHOICE  >=  1  .AND.  7:CHOICE  <=  7 


DO  CASE 

CASE  7: CHOICE*  1 

RELEASE  ALL  EXCEPT  C:* 
DO  C: XCFEN2. P  RG 
CASE  7 : CHOI CE=  2 

RELEASE  ALL  EXCEPT  C:* 
DO  C: CLCSREC.  PRG 
CASE  7: CHOICE*  3 

RELEASE  ALL  EXCEPT  C:* 
DO  C:  XUPDAT.  P  RG 
CASE  7 : CHOI CE=  4 

RELEASE  ALL  EXCEPT  C:* 
DO  CJLTE.PRG 
CASE  7: CHOICE*  5 

RELEASE  ALL  EXCEPT  C:* 
DO  C : R  PIMENU 
CASE  7 : CHOI CE=6 

RELEASE  ALL  EXCEFT  C:* 
DO  CtQUEEY.PRG 
CASE  7: CHO ICE=7 

RELEASE  ALL  EXCEFT  C:* 
RETURN 

ENDCASE 
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STOEE  T  TO  V: CO  NIINUE 
STOEE  «  '  TO  V: CHOICE 


ELS  E 

a  21,20  SAY  '  <  PLEASE  ANSWER  WITH  1  -  7  ONLY  >• 

a  23,20  SAY  *  <  PRES  S  ANY  KEY  TO  CONTINUED 

WAIT 

ENDIE  <V:CHCICE> 

ENDDO  < V :CONTINU  E> 

*****  ENE  OF  PROGRAM 


IV.  NEW  CASE  INPUT  MODULE 


****************  ******************************************* 


**  ** 

**  CATE:  18  NOV  1 983  ** 

**  VERSION :  1.0  ** 

**  MCDUIE  NAME:  OPEN  ** 

**  MODULE  EURPOSE:  NEW  QDR  CASE  CREATION  ** 

**  MODULE  INTERFACE  DEFINITION  ** 

**  INPUTS:  C :  WHO  ,  C:JULIAN,  V.-JULDATE  ** 

**  OUTPUTS:  M:  CA  S  E  .  V:MM,  V:DD,  V:YY,  AND  ALL  OF  THE  ** 

**  DATA  ELEMENTS  IN  OPEN1  AND  OPEN2.  ** 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  ** 

**  PROMPTS  THE  USER  FOR  INPUT  OF  ALL  DATA  FROM  ** 

**  SF  368  IN  ORDER  TO  CREATE  A  NEW  QDR  CASE.  ** 

**  VALIDATION  CF  DATA  ITEMS  OCCURS  UPON  INPUT  AND  ** 

**  IS  BASED  UPON  CURRENT  GE  TIMESHABE  VALIDATION,  ** 

**  AS  MODIFIED  BY  FMSO  TECHNICAL  BRANCH.  DATES  ** 

**  ARE  CAPTURED  FOR  MANAGEMENT  STATISTICS.  ** 

# 

**  SUPERORCINAT E  MODULES:  MEN  U1  ** 

**  SUEOEDINATE  MODUIES:  OJULIAN,  XDBHNDLR  ** 

**  AUTHOR:  J.G.  BOYNTON  ** 

**  ** 


****************  **  ********************  ***********  ********** 

STORE  T  TO  C :T RU  E 
CO  WHILE  0 : TRU  E 
ERASE 

STORE  '  *  TO  O: CHOICE 
TEXT 

*****  OPEN  NEW  CASE  ***** 


THIS  PROGRAM  ENABLES  YOU  TO  OPEN  A 
NEW  QDR  CASE 


1  -  CONTINUE 

2  -  RETURN  TO  MENU 

ENDTEXT 

3  20,30  SAY  •  •  GET  0:CH0ICE 

READ 

DO  WHILE  C:  CHO  ICE  <>  M»  .AND.  0:CH0ICE  <>  '2' 
3  23,20  SAY  '  ANSWER  WITH  A  1  OR  2  ONLY' 
a  20,30  SAY  •  '  GET  0:CH0ICE 

READ 
END  DO 
ERASE 

IF  C : CHOICE  =  '2' 

RELEASE  ALL  EXCEPT  C:* 

RETURN 

ENDIF 

*****  INITIALIZE  MEMORY  VARIABLES 

STORE  '  '  TO  0 : K E Y 


6  6 


STOEE 

STOBE 

STOEE 

STOBE 

STOEE 

STOEE 

STOEE 

STOEE 

STOEE 

STOBE 

STOEE 

STOEE 

STOEE 

STOBE 

STOEE 

STOBE 

STOEE 

STOBE 

STOEE 

STOEE 

STOEE 

STOEE 

STOEE 

STOEE 

STOEE 

STOEE 

STOEE 

STOBE 

STOEE 


'  'TO  MlCASE 

'  •  TO  a:  COG 

•  *  TO  M  ;SM 

'  '  TO  M :  C  AT 

'  '  TC  M:  UI  C 

0  TO  M:  QT  YBEC 
0  TO  M:  QT YINS 
0  TO  a:  QT  YEEF 
0  TO  M:  QTYSTK 


TO  a: NO  MEN 


•  TO  a : N U M 


'  TC  MjOPEN 
'  TC  MrOVER 

'  TO  M: REPCON 

•  TC  M : FS  CM 

'  TO  MtTIME 

«  TO  M: MFG 
'  TO  M : LOT 
•TOM:  ITEM 

'  TC  M : OTF 
'  TC  M:GCV 

*  10  M: DOCNO 

•  TO  M;EEF 
•TOM:  VINT  Y 

•  TC  0 : DD  AT E 

•  TO  0 : MODEL 
’  TC  OrDSFSEB 

'  TO  0 : H  AS  S  Y 
•  TC  0 :SASSY 


*****  THIS  SEQUENCE  CALCULATES  THE  UPPER  AND  LOWES  YE 
*****  FCE  INPUT  AND  IS  BASED  ON  THE  CURRENT  JULIAN  DA 
*****  C : JULIAN.  0:LLIMIT=  YEAR  MINUS  TWO  YEARS 
*****  o : ULI MIT  =  YE  A  E  PLUS  ONE  YEAR 


STOBE  $ 
STORE  V 
STORE  V 
STORE  V 
STORE  T 
STORE  T 
STORE  S 
STORE  S 
RELEASE 


$  (C:  JULIAN, 1.2)  TO  TEMPI 
VAL  (TEMPI)  TO  TEMP  1 A 
V  A I ( '  2 ' )  TO  LOW 
VAL  ('  1M  TO  HIGH 
TEMPI A-LOW  TO  ILMT 
TEMPI  A+HIGH  TO  ULMT 
STB  (L  LMT  ,  2  )  TO  CsLLIMIT 
STR(UIMT,2  TO  CiULIMIT 
E  TEMPI, TEMPI  A, LOW, HIGH, 


LOW, HIGH, LLMT, ULMT 


*****  START  OF  THE  INPUT  FOR  THE  NSN 

STORE  '  'TOO: FEATE 

STORE  T  TO  OjANSWER 
DO  WHILE  C:  ANSW  ER 

a  5,20  SAY  *********  ENTER  DAI  A  FOR  THE  NEW 
a  6,20  SAY  *********  FROM  SF  368 


CASE  ********* 
*  *****  **  * 


STORE  T  TO  C-.RDATET 
CO  WHILE  O-.RDATET 

a  8,20  SAY  'DATE  RECEIVED  BY  FMSO  MMDDYY'  ; 

GET  0: R  DAT  E  PICTURE  '999999' 

READ 

IF  $  (0  :  RD  AT  E,  1  ,  2)  <'01'  .OR.  $  (0  :  R  D  AT  E ,  1  , 2)  >*1 

.OR  .$(0  I  EDATE, 3, 2)  <'01'  .OR.  $  (0 :  R  DA  TE ,  3 , 2 ) 

.OR.  $  (0  :RDAT£,5,2)  <  0:LLIMIT  ; 

.OR.  S  0:RDATE.5,2[  >  CiULIMIT 

a)  2  3,  3  0  SAY  'DATE  OUT  OF  RANGE' 

ELSE 

.  STORE  F  TO  0  lEDATET 
EN  DIF 

ZNDDC  <0:RDATS> 


>»  12*  ; 
,2)  > 


1 


2  23,30  SAY  • 

*****  ENTER  THE  CALL  TC  ClOJULIAN  to  change  mmddyy  tc 

*****  JUIIAN  FORMAT,  STORE  TO  M :  R  DATE  THEN  RELEASE  C:ED?.TE 

STORE  VAI  ($  (0:  RDATE,  1,2)  )  TC  V:MM 

STORE  VAI  ($  (0:  RDATE,  3,2  TC  V:DD 

STORE  VAI  ($  (0:  RDATE,  5,2)  )  TO  V:YY 

CO  CiCJUIIAN 

STORE  V : JUL CAT E  TO  M : RDATE 
RELEASE  ALL  LIKE  V:* 

RELEASE  C.-RDATET 
STORE  T  TC  C:C AT 
CO  WHILE  0 :  CAT 

a  10,20  SAY  'CAT' 

a  10,50  SAY  '  •  GET  K:CAI  PICTURE  '9' 

READ 

IE  M:  C  AT  ='  1*  .CR.  M:  C  AT  ='2' 

STORE  F  TO  0  :C AT 
ELSE 

a  23,20  SAY  «  1  OR  2  ONLY* 

END  IF 

ENDDO  0 : C AT 

2  23.20  SAY  '  • 

RELEASE  C:CAT 

STORE  T  TO  C:C0G  1 
STORE  T  TO  C:COG2 
CO  WHILE  0:C0G1  .OR.  C:COG2 
DC  WHILE  0:  COG1 

2  12,20  SAY  'COG' 

2  12,50  SAY  •  '  GET  M:C0G  PICTURE  '9X' 

READ 

I?  3  (M  :  C  OG ,  2 , 1 )  =  •  * 

2  23,  20  SAY  11  NO  BLANKS  IN  2D  POSITION' 

ELSE 

STORE  F  TO  C:C0G1 
STCRE  !  (M :  CCG)  TO  M:COG 
ENCIF 

ENDCO  <0  :COG 1 > 

2  23,20  SAY  '  • 

*****  CHECKS  THAT  COG  IS  VALID  IN  CURRENT  COG  TABLE...  MUST 
*****  EE  VALID  TO  CONTINUE 

USE  C:COG  INDEX  D:COGS 
FINE  &  M ; COG 
IF  #  =  0 

2  23,10  SAY  '  COG  INVALID  -  ENTER  CORRECTED  ENTRY' 
STORE  T  TO  C: COG  1 
ELSE 

SIORE  F  TO  C.-COG2 
EKDIF 

ENDCO  <0 : COG  1  S  0:CCG2> 

RELEASE  C  :COG 1 ,  0 : CCG2 

3  23,  10  SAY  »  ' 

2  14,20  SAY  ' NS  N  • 

2  14,50  SAY  '  'GET  0  :  KE  Y  PICTURE  '  9  99  9- XX- XXX -99  9  9  ' 

READ 

STORE  T  TO  C.-NATCT 
CO  WHILE  C  :  NATOT 

IF  $  (0:  KEY  ,5,1)  ='  '  .OR.  $(0:KEY,6,1)  =  '  ' 

2  23  ,20  SAY  '  NATO  CODE  MAY  NO  I  HAVE  BLANKS' 

2  14,50  SAY  '  '  GET  0 :  K E Y  FICTURE  •  999 9-XX-XXX- 9 99 9' 

READ 
ELSE 
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a  23  ,20  SAY  '  • 

STORE  F  TO  0: NATOT 
ENDIF 

ENDDC  <0: N  AT0T> 

RELEASE  CzNATOT 

a  23,20  SAY  •  ' 

STORE  T  TO  C :  F 1 1  NT 
EO  WHILE  0: FIINT 

IF  $  (0 :  KEY  ,7,1)  =  '  *  .OR.  $  (0:  KEY,  8,  1)  =  •  •; 

.CR.  $(0*KEY  g  1)  =•  » 

l  23,40  SAY  *  n6  BLANKS  IN  THE  FIRST  3  POSITIONS' 
a  14,50  SAY  •  '  GET  0  :  K  EY  PICTURE  '  999  9- X  X- XX  X- 9  99  9* 
READ 
ELSE 

a  23,40  SAY  »  ' 

STOR £  F  TC  0 : FIINT 
ENDIF  FIINT 
ENDDC  <C: F IINT  > 

RELEASE  CjFIINT 

S  23,20  SAY  •  ' 

STORE  '  'TOO:  REPLY 

2  18,20  SAY  '  VERIFY  ABOVE  INFORMATION  ' 

a  19,20  SAY  '  YOU  MAY  NOT  CHANGE  IT  AFTER  THIS' 

2  20,20  SAY  '  WITHOUT  STARTING  OVER  AGAIN' 

2  22,25  SAY  '  1  -  CONTINUE  2  -  CHANGE  3  -  EXIT' 

2  23,40  SAY  '  '  GET  CrREPLY 

READ 

IF  0: REPLY  =  '  1  ' 

STCRS  F  TO  0: ANSWER 
ERASE 

a  23,20  SAY  'SEARCHING  FOR  ANOTHER  CASE  WITH  THIS  NS  N' 
RELEASE  C: RD ATE 

IF  O.-EEPLY  =  '3* 

RELEASE  ALL  EXCEPT  C  :* 

RETURN 

ELSE 

CLEAR  GETS 

a  22,25  SAY  '  ' 

a  23,25  SAY  '  ' 

ENDIF 
ENDIF 

ENDDC  0 : ANS  WER 


STORE  $  (0:  KEY,  1,4)  ♦  $  (0  :  KE  Y  ,  6 , 2)  +  $  ( 0:  KEY  ,  9 , 3)  ; 

+  $ ( 0 : KE Y ,  13,4)  TO  M: KEY 
STORE  M :  KEY  TO  M:NSN 

*****  M : T Y PE  CODES  TELL  THE  DBHANDLER  WHAT  TC  DO  WITH 
*****  THE  PARAMETERS 

STORE  '  1  A'  TO  M:  TYPE 
DO  C  :  XIBHNDLR.  PRG 

*****  CONTROL  RETURNS  TO  THIS  PROGRAM  NOW 

*****  x?  M : TYPE  =  9  THEN  THERE  IS  NOT  A  CURRENTLY 

*****  OPEN  FILE 

IF  M : TYPE= ' 9 ' 

STORE  T  TO  0 : ONO N  E 
ELSE 

STORE  F  TO  0: ONONE 
STORE  M : R EC  1  TO  OzEREVREC 

STORE  T  TO  0 : WHICH 
DC  WHILE  0:  W H  ICH 
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STORE  'll'  TO  M : T YPE 
DO  C: XDBHNDLR. ERG 


IP  M:NSN  <>  M :  FEY  .OR.  ECF 
STORE  0  :?REVEEC  TO  M:BEC1 
STORE  '  1H '  TC  M : TY  PE 
DC  C:  XDBHNDLR.  PRG 
STORE  F  TO  CzWHICH 

*****  THESE  MOST  BE  RELEASED  OR  ELSE  TOO  MANY  VARIABLES 
*****  WILL  EE  ASSIGNED  (IE  >64) 

RELEASE  M: UI,M:UPRC,M :WUC, M: ACTDISP, M: ACTPT, ; 

M : DETAILS, M:DEFV,H :DEFK, ; 
M:09C,M:D0C,M:0RG 


STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


STORE  0  TO  MzQTYIN  S 
STORE  0  TO  K  jQTYREC 
STORE  0  TO  MzQTYSTK 
STORE  0  TO  MiCTYDEF 


'  TO  M:  DATES 
'  TO  MzCLCSE 
'  TO  M:UIC 
•  TO  M:FSCM 

'  TO  M: NUM 
'  TO  M : MFG 
'  TO  H ZRECPEN 

•  TO  M : DOCNO 
'  TO  M :SCBD AT 

»  TO  M : REPCON 
•  TO  MlTIME 


ELSE 

STORE 

ENCIF 


M  :  R  E  C  1 


0: PREVREC 


ENEDO  <0ZWHICH> 

ENDIF  <0PEN FIL  S> 

STORE  M :  C AS  E  TO  0  :CCASE 

*****  SAVE  THE  CASE  FROM  THE  OFENFILE  FOR  FUTURE  COMFA 
*****  GO  TO  THE  CLOSED  DATA  EASE  AND  CHECK  FOR  CASE  Vil 
*****  THAT  NSN 

STORE  '  3  A  1  TO  MlTYPE 
DO  C:  XDBHNDLR.  PRG 

*****  CONTROL  RETURNS  TO  THIS  PROGRAM 

*****  IF  Mi-tyPS  =  9  THEM  THERE  IS  NOT  A  CASE  IN  THE  CLOSED 

*****  RUE 

IF  M  :  TYPE®  '9' 

STORE  T  TO  0; CNO  N  E 
ELSE 

STORE  F  TO  0 : CNO  N  E 
STORE  M  :  REC  1  10  0  :  FREVREC 


STORE  T  TO  0 : WHICH 
DC  WHILE  0:  WHICH 

STORE  '31'  TO  M :T Y  PE 

DO  C: XDBHNDLR . FRG 

STORE  M:REC1  TC  OzPREVREC 

IF  M :  NSN  <>  M  :  KEY  .OR.  ECF 
STORE  0  :PRE VFEC  TO  M : EEC  1 
STORE  •  3H'  TC  M : TY  PE 
'  DC  C:  XDBHNDLF.  PRG 
STORE  F  TO  C : WHICH 
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*****  THESE  MUST  BE  RELEASE  D  OB  ELSE  TOO  MANY  VARIABLES 
*****  WILL  EE  ASSIGNED  (IE  >64) 

RELEASE  M:UI,M:UPRC,M:WUC,M: ACTDISP.M:ACTPT,; 

M: DETAILS, M:DEFV,M : DEPR , M : 09 Q, M : DOC, ; 
M:OEG,M:REPLY,M: AC TTKN,M: STATUS C, ; 
MiCAUSEC,  r  etc 


STORE 

• 

♦ 

1 

•  TO  a: DATES 

STORE 

« 

•  TO  M : CLOSE 

STORE 

1 

•  TO  M:UIC 

STORE 

9 

•  TO  MlFSCM 

STORE 

f 

•  TO  M : N 

STORE 

1 

•  TO 

M:  MFG 

STORE 

« 

»  TO  M  iREOPEN 

STORE 

1 

•  TO 

M : DOCNO 

STORE 

« 

•  TO  M : SC RD AT 

STORE 

1 

•  TO 

M:REPCON 

STORE 

t 

•  TO  MiTIME 

STORE 

0 

TO 

M:QTYIN  S 

STORE 

0 

TO 

K.-QTYREC 

STORE 

0 

TO 

MlQTYST  K 

STORE 

0 

TO 

MlQTYDEF 

ELSE 

STORE  M  :REC  1  TO  0 : ERE VR EC 
ENCIF 

ENEDO  <0:WHICH> 

STORE  M : CAS  E  TO  OrCCASE 
ENDIF  <CIOS  EFILE> 

*****  COMPARE  THE  VALUES  OF  CASE  NUMBER  FROM  OPEN  AND 
*****  CLOSE.  AND  USE  THE  LARGEST  ONE  FOR  SUFFIX 
*****  CALCULATION 

IF  C : OCAS E  >  0 : CC ASE 

STORE  0  :  CC  AS  E  TO  MlCASE 
RELEASE  0:  CC  ASE,0:  0  CASE 
ELSE 

STORE  OiCCASE  TO  M:  CASE 
EEIEASE  OrOCASE, OiCCASE 
ENDIF 

*****  CNIY  GO  INTO  THE  NEXT  IF-ENDIF  WHERE  THE  NSN  WAS  NOT 
*****  FOUND  IN  EITHER  THE  OPEN  OR  THE  CLOSED  FILE 

IF  OrCNCNE  .AND.  OlCNCNE 

ELSE 

*****  CALCULATE  SUFFIX  FOR  THE  ADDITIONAL  CASE  FOR  THE  NSN 

STORE  $(M:  CASE,  7,1)  TO  0:LAST 
IF  0:  LAST  =  '  f 

STORE  $  ( M  :  0  AS  E,  1 ,  6)  +  'A*  TO  MlCASE 

ELSE 

STORE  RAN  K  (C  :  LAST  )  +1  TO  OiSUFFIX 
STORE  CHR  (CiSUFFI  X)  10  0 :  LE TT E R 
STORE  5(M:CASE,1,  6)  ♦  0 :  LETTER  TO  MlCASE 

ENDIF 

ENDIF 


ENDIF 

RELEASE'  C:  LAST  ,0:LET  TER, 0:KEY,0:PREVR  EC, OiONONE, OrCNCNE, OlWHICH 
ERAS  E 
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*****  START  OF  NEW  CASE  DATA  ENTRY 


S  0,1  SAY  'SF36  8' 

2  1,2  SAY  *5.  ns: 

a  2,2  SAY  '  CA' 

a  3,2  SAY  *  sm: 

PICTURE  •  AX  ' 

3  4,2  SAY  '1A.  UI( 

2  5,2  SAY  *3.  RE! 

•  • 

GET  Cr&EFCON 
a  6,2  SAY  *4.  DA' 
GET  C:  DD  ATE  P! 
a  7,2  SAY  '6.  NO  I 
get  ejnomen  p: 
a  8,2  SAY  *  7.  FS< 
GET  M :  FSC  M  PH 
a  9,2  SAY  '8.  MF< 
GET  MrMFG  PIC' 
a  10,2  SAY  *9.  SE 
GET  Mr  LOT  PIC’ 
a  11,2  SAY  »10.  CO 
GET  M :  N  U  M  PIC’ 
a  12,2  SAY  •  DOI 

GET  MrDOCNO  P! 
2  13,2  SAY  *11.  IT 
GET  MrlTEM  PH 
a  14,2  SAY  M2.  DA1 
GET  MrO  VER  PH 
a  15,2  SAY  M3.  OP 
GET  M : OTF  PIC' 
2  16,2  SAY  '14  .  GO 
GET  M:GOV  PIC’ 
a  17,2  SAY  *  15.  QT 
GET  MrQTY  EEC 
2  18,2  SAY  Mo  A 1  .  TY: 
2  19,2  SAY  •  A2 .  SE 
a  20,2  SAY  »  B.  ne: 
2  21,2  SAY  '  SO' 

a  1,38  SAY  2 (M: KEY , 
♦  '  (B 

a  2,38  SAY  Mr  CAT 
CLEAR  GETS 

STORE  T  TO  CrCOREECT 
EO  WHILE  0:  CORRECT 


•5.  NSN  • 

'  CATEGORY  ' 

*  SMIC  ' 

'URE  'AX' 

»  ia .  UIC  • 

•3. *  REECRT  CONTROL 

• . 

£:ilE  FCON  PICTURE  •  XXXXXX-99-9999' 

•4.  DATE  DISCOVERED  MMDDYY  •; 

C: DD  ATE  PICTURE  'XXXXXX' 

•6.  NOMENCLATURE 

KrNOMEN  PICTURE  ' XXXXXXXXXXXXXXXXXXX* 

*  7.  FSCM  <0>  •; 

M : FSC M  PICTURE  'XXXXXX' 

'8.  MFG.  PART  NUMBER  <0>  '; 

MrMFG  PICTURE  ' X XXXXXXXXXXXXXXXXX' 

•9.  SERIAL/LOT/BATCH  <0>  '; 

M: LOT  PICTURE  'XXXXXXXXX* 

*10.  CONTRACT/FO  <0> 

ErNUM  PICTURE  ' X XXX XX -99 - A-X XXX-XXXX ' 
'  DOCUMENT  NUMEER  <0>  »; 


M:  UIC 


: DOCNO  PICTURE  • XXXXXX-9999-9999 ' 


Ml  . 
MrlTEM 
M2 . 
M:0  VER 
M3. 
M:OTF 
•14. 
M:GOV 


ITEM  N  OR  0 

PICTURE  ' A' 

DATE  MFG/REF/O  VHL 
PICTURE  • 99999 • 

OPN  TIME  AT  FAILURE 
PICTURE  ' A  XXX X ' 

GOV  FURNISHED  MATL 
PICTURE  'X • 

QTY:  REC/INSF/DEF/STK 
EC  PICTURE  *999999' 


*15.  QTY:  REC/INSF/DEF/STK 

K:QTY  EEC  PICTURE  '999999' 

'  16 A  1  .  TYFE/MODEL/SERIES  < 

•  A2.  SERIAL  NUMBER  < 

•  B.  NEXT  HIGHER  ASSY  < 

'  SUE-ASSEMBLY  < 

2 (M:  KEY, 1,4}  +'  - '♦$  (M : KEY , 5, 2) 

*’-•  +2  (firm,  10  ,4) 

M:  C  AT 


C: MODEL 
0: DEFSER 
0: H ASSY 
CrSASSY 


+  +2 (M: KEY, 7, 3) ; 


IF  M :  CCG  =  MB'  .OR.  M:COG  =  «2H'  .OR.  M:COG  =  '7H' 
STORE  T  TO  OrSMICI 
DC  WHILE  0  :  S  MI  C 1 

a  3,2  SAY  '  SMIC 

M:SM  PICTURE  'AX' 

READ 

STORE  !  (M:  SM)  TO  M  :  SM 

IF  $(M:SM,1,1)  =  *X'  .OR.  2  (M:  SM,  1  ,  1 ) 

STORE  F  TO  0 : S  MIC  1 


GET; 


EL  SE 

a  23,30  SAY  'X  OR  L  ONLY' 

EN  DIF 

ENDDC  <C:SMIC1> 

ENDIF 

RELEASE  OrSMICI 

a  23,20  SAY  '  ' 

STORE  T  TO  CrUICI 
CO  WHILE  0:  UIC  1 

2  4,35  SAY  '  '  GET  MrUIC  PICTURE  'AXXXXX' 
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STORE  !  (M :  U IC)  TC  M:UIC 
READ 
IF  f/M: 

$  ( M : 

$  (M : 

a  23 

ELSE 

STORE  F  TO  0:UIC1 
EN  DIF 

ENDDO  <0:UIC1> 

a  22,20  SAY  •  • 

RELEASE  C:UIC1 

*****  REFORT  CONTROL 

*****  FEFCRT  CONTROL  NUMBER  (RCN)  FORMAT  CHANGED  DUE  TO 
*****  MSG  FROM  FMSO  NCV83 

*****  OLE:  'XXXXXX-XXXX-XXXX'  NEW:  '  XXXXXX -9  9  -  99  9  9 1 

a  5,35  SAY  •  •  GET  M: R  EICON  PICTURE  • XXXXXX-99-9999' 
READ 

*****  1.TAKE  DATE  IC  JULIAN  FORMAT  2.  NUMERIC  DATA 

STORE  T  10  C: DD ATET 
EO  WHILE  0:  EDATET 

a  6,35  SAY  •  •  GET  0 :  D  D  AT  E  PICTURE  '999999' 

READ 

IF  C:  EE  ATE  =  '  • 

2  23,30  SAY  'MAY  NOT  BE  BLANK  ' 

ELSE 

IF  3(0:  DDATE,  1,2)  <  '01'. OR.  $  (0 :  D  DAT  E,  1 , 2)  >  '12'; 

.OR.  $ (0  :  £ E&TE,  3  , 2)  <  '01'; 

.OR.  $  (0:  EEATE,  3 ,2  >  '31*  ; 

.OR.  $  (0  :  EEATE,  5,2)  <  OiLLIMIT; 

.OR.  $  (0  :  EEATE,  5,2)  >  0:ULIMIT 

3  23, 3C  SAY  •  DATE  OUT  OF  RANGE' 

ELSE 

STORE  F  TO  0: DEAIET 

ENDIF 
END  IF 

ENDDC  <0 : DC  ATET  > 

a  23.30  SAY  •  • 

RELEASE  C: EEATET 

*****  CALL  C:  0  J  ULI  A  N  TO  CONVERT  TO  JULIAN  DATE 

STORE  VAI  ($  (0:  DDATE,  1,2)  )  TC  V:MM 
STORE  VAI  (3  (0:  DDATE,  3,2  TO  V:DD 
STORE  VAI  (3  <0:  DDATE,  5,2  TC  V:YY 
EO  C : CJULlA  N 

STORE  V : JULEAT  E  TO  M  :  ED  ATE 
RELEASE  ALL  LIKE  V:* 

STORE  T  TC  C : NOM  EN 
DO  WHILE  0:  NOM  EN 

a  7.35  SAY  '  'GET  M : NO  MEN  PICTURE  ’ XXXXXXXXXXXXXXXXXXX ' 
READ 

IF  $  (M:  NOMEN,  1  ,  1)  =  '  •  .OR.  $  (M  ;  NOMEN  ,  2 , 1)  =  •  •  ; 

.OR.  $  (M:N0MEN,3,1)  =  '  ' 

a  23,30  SAY  •  NO  BLANKS  IN  FIRST  3  POSITIONS' 

ELSE 

STORE  F  TO  0:  NO  MEN 
ENDIF 

ENDDO  <0:  NOMEN> 

a  23.30  SAY  '  ’ 

RELEASE  C: NCMEN 

*****  INPUT  FSCM 


UIC,  1,1,  -  •  v/x\  •  4>  lij  •  U  X  W  «  4.  #  I  /  —  •  KJ  L\  •  # 

UIC,  3,1)*  '  '  .OR.  3  (M:  UIC, 4 ,1)  =  •  '  .OF.; 
UIC, 5,1)=  '  •  .OR.  $  (M:  UIC, 6,1)  =  •  • 

,20  SAY  ’  NO  BLANKS  ALLOWED  IN  UIC' 


=  '  '  .OR.  $  (M:UIC,2.  1)  =  '  '.OR.; 

*  '  '  .OR.  3  (M:  UIC, 4 ,1)  =  •  •  .OF.; 
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2)  8,35  SAY  •  •  GET  M:FSCM  PICTURE  ' XXXXXX' 

*****  INPUT  MANUFACTURERS  PART  NUMBER 

3  9,35  SAY  '  •  GET  M : MFG  PICTURE  • XXXXXXXXXXXXXXXX ' 
a  10,35  SAY  •  •  GET  M:LOT  PICTURE  • XXXXXXXXX* 

*****  INPUT  CONTRACT  NUMBER 

a  11,35  SAY  •  «  GET  M : NUM  PICTURE  ' XXXXXX-99- A-XXXX-XXXX* 
*****  INPUT  DOCUMENT  NUMBER 


STORE  T  TO  0:UICT 
STORE  T  TO  OiPREPT 
STORE  T  TO  0:D0CT 
DO  WHILE  C:EOCT  .OR.  C:UI' 
a  12,35  SAY  '  •  GET 

READ 

IF  M: DCCNO  =  • 

STORE  F  TO  0:D0CT 
STORE  F  TO  0:UICT 
ELSE 


C:UICT 

GET  M: DOCNO  PICTURE  ' AXXXXX -9 999-9 99 9 


IF  $(M:  DCCNO  .1,1)  =•  '  .OR.  $  (M :  DOCNO  ,  2 ,  1 )  = 
.OR.  $(M : DCCNO,  3 ,1) =  •  •  : 

.OR.  $  ffls  DCCNO, 4  ,  1  =  •  •; 

-OR.  $  { M  :  LCCNO,  5,1)  =  '  • 

3  23,20  SAY  '  NO  BLANKS  ALLOWED  IN  UIC* 


a  SAY  *  NO  BLANKS  ALLOW 

ELSE 

STORE  F  TC  0 : DOC T 
ENDIF 

IF  $  (M:  DCCNO,  12,3)  >'366'; 

.OR.  S(M: DCCNO, 1 2,3)  =  '  '  : 

-OR.  SjM: DCCNO, 1 1.4)  =  •  * 

3  23  ,50  SAY  'PREP  DATE  OUT  0 


ELSE 

STORE  F  TC  0 : UICT 
ENDIF 

ENDIF  <ALL  ELAN  KS> 

ENDDO  <0 :  DOCT  .AND.  C:UICT> 
RELEASE  C : U ICT , 0 : DOCT 
a  23,20  SAY  ' 

*****  DOCUMENT  NUMBER  END 

STORE  T  TO  C :  I T E M 
DO  WHILE  0 : ITEM 


OF  RANGE  ' 


a  13,35  SAY  •  •  GET  M : ITEM  PICTURE  *A' 

READ 

IF  M: ITEM  =  'N*  .OR.  M : ITEM  =  'O’  .OR.  HsITEH  =  '  ' 

STORE  F  TO  C : ITEM 

ELSE 

3  23,30  SAY  •  USE  N  OR  0  • 

ENDIF 

END  D  C  <C:ITEM> 

a  23,30  SAY  •  • 

RELEASE  C : ITEM 
IF  M : ITEM  <>  •  • 


*****  ThE  NEXT  FIVE  LINES  CALCULATE  EARLIEST  YEAR  TO  ALLOW 
*****  job  OVERHAUL  ENTRY 

STORE  $  (C:  JULIAN, 1  ,  2)  TO  TEMPI 
STORE  VAI(TEMPI)  TO  TEMPI  A 
STORE  V'AL  ('  10* )  TO  LCW 
STORE  TEKP1A-LOW  TO  TEMP2 
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STORE  STR  (T  EMP 2,2)  TC  0 :  TEN  YRS 
RELEASE  TEMPI. TEMPI A.TEMP2, LOW 
STORE  T  TO  0 :OV E R 
DC  WHILE  0: OVER 

3  14,35  SAY  •  •  GET  M:OVER  PICTURE  '99999* 
READ 

IF  M:OVER='  ' 

STORE  F  TC  0: 0  V ER 

ELSE 

IF  $  (M:OVER,3,3)  >  '  365'  ; 

.OR.  $  (MlOVER,  1 ,2)  <  O.-TENYRS  ; 

.OR.  $ ( M :0V  ER,  1.2)  >  OsOLISIT  • 

3  23,30  SAY  ‘DATE  OUT  OF  RANGE' 

ELS  E 

STORE  F  TO  OlOVER 

END  IF 
END  IF 

ENDDC  <0:0VER> 

3  23,30  SAY  •  • 

ENDIF 

RELEASE  C : OVER, 0 :T EN YES 


STORE  T  TO  0:0TF 
DO  WHILE  0:CTF 

3  15,35  SAY  •  •  GET  M :  0  T  F  PICTURE  'A999S' 
READ 

IF  M:OTF  =  '  ' 

STORE  F  TC  0:CTF 


ELSE 

IF  S  (M:0TF,  1.1)  =  '  N  ' 

.  AND.  $  (H:  OTF.2,4)  > 

STORE  F  TO  0;0TF 


OR.  $  (M  :OTF,  1,1) 
*0000' 


=  •0' 


ELSE 

3  23,30  SAY  'USE  N  OR  0  AND  THEN  TIME 

ENDIF 

ENDIF 

ENDDO  <0:0TF> 

3  23.30  SAY  ' 

RELEASE  C:OTF 
STORE  T  TC  C:GOV 
DO  WHILE  0:G0V 

a  16,35  SAY  '  '  GET  M:GOV  PICTURE  'X' 

R  E  \  E 

if'  M:GOV  =  •  '  .OR.  M : GOV  =  'Y'  .OR.  M:GOV 


(A9999) 


STORE  F  TO  C:GOV 

ELSE 

3  23,30  SAY  'USE  EITHER  Y  OR  N  OR  LEAVE  BLANK' 
ENDIF 


ENDDO  <0:G0V> 

3  23,30  SAY  ' 

RELEASE  C : GCV 
STORE  T  IC  CjQTYRECT 
CO  WHILE  0 : QTYR  ECT 


3  17,35  SAY  '  •  GET  K : QTYR EC  PICTURE  '999999' 

READ 

IF  M : QTYREC  <  0  .OR.  M:QTYR  EC  >  999999 
3  *3,20  SAY  'CUT  CF  RANGE' 

ELS  S 

STORE  F  TO  0 : QTYR  ECT 
ENDIF 
ENDDO 

3  23,30  SAY  '  • 

RELEASE  C :  QTYR  ECT 
STORE  T  TO  C : QT Y  INS 
DO  WHILE  0:  QTYINS 

3  17,43  SAY  '/*  GET  M:QTYINS  PICTURE  '999999' 
READ 
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IF  M : QT YINS  <  0  .CF.  Mr QTYINS  > 
9  *3 , 30  SAY  •  CUT  OF  RANGE' 


999999 


TO  0 : QTYINS 


<  1 
SAY 


TO  0  :  QTYDEF 


ELSE 

STORE  F 
ENDIF 

FNDDO  <0:QTYINS> 
a  23,30  SAY  • 

RELEASE  CrQTYINS 
STORE  T  TO  CrQTYDEF 
EO  WHILE  0 : QTYD E F 
2  17,50  SAY  •/' 

READ 

IF  Mr  QTYDEF 
2  23,30 
OUT  CF  FANGE* 

ELSE 

STORE  F 
ENDIF 
ENDDO  0 : QTYDEF 
RELEASE  Or  QTYDEF 
a  23,30  SAY  ' 

STORE  T  TO  OrQTYSTK 
DO  WHILE  0 : QTYST  K 

5  17,57  SAY  ’/•  GET  M: QTYSTK 
READ 

IF  M  r QTYSTK  <  0  .CR.  Mr QTYSTK 
a  23 ,30  SAY  •  IN  STOCK 
OUT  OF  RANGE' 

ELSE 

STORE  F  TO  0 : QTYSTK 
ENDIF 

ENDDO  OrQTYSTK 
a  23,30  SAY  • 

RELEASE  CrQTYSTK 


GET  Mr QTYDEF  PICTURE  '999999' 

CR.  Mr QTYDEF  >  999999 
DEFICIENT 


PICTURE  '999999' 
>  999999 


GET  CrMODEL  PICTURE  'XXXXXXX' 

GET  CrDEFSER  PICTURE  • XXXXXX' 

GET  CrHASSY  PICTURE  'XXXXXXXXXX' 
GET  CrSASSY  PICTURE  ' XXXXXXXXXXXX • 


a  18,35  SAY  •  ' 

READ 

a  19,35  SAY  '  • 

READ 

3  20,35  SAY  '  • 

READ 

a  21,35  SAY  «  ' 

READ 

STORE  Or  FODEL+O;  DEFSER+0:HASSY+  OrSASSY  TO  Hr  DITEM 


*****  EBCMPT  USER  FOR  RESPONSE 

STORE  T  TO  CrEND 
DO  WHILE  Or  END 

STORE  *  •  TC  OrREPLY 


22,  10  SAY 


******  * 


CHECK  PREVIOUS  ENTRIES 


♦ i *******  » 

a  23,10  SAY  '  CHOOSE  1-  CONTINUE  ENTRY  2-  MAKE 
* ' CORRECTIONS  •  GET  OrREPLY 

READ 

IF  OrREPLY  <>  «1*  .AND.  OrREPLY  <>  '2' 

a  23,10  SAY  '  ANSWER  WITH  A  1  OR  2  ONLY 

ELSE 

STORE  F  TO  CrEND 
ENDIF 

ENDDO  <OrENC> 

IF  OrREPLY  =  •  2' 

STORE  T  TO  OrCORRECT 
a  22,10  SAY  ' 
a  23,10  SAY  ' 


ELS  E 
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STORE  F  TO  0 ; COS  R  EOT 
END  I  F 

ENDDC  <C :CO RRECT  > 

ERASE 

RELEASE  C; MODEL, 0: DEFSER,0: H AS SY, 0 : SASSY, 0: END, 0: COUNT 

*****  HERE  IS  THE  COMPRESSION  OF  M:  REPCON,  M  :NUM,  M :  DOCNO 

STORE  $  (K:REPC0N,1 , 6)  ♦  $  (MiREFCON,  8,  2)  *$  (H:  REPCON  ,  1  1 , 4)  TO  ; 
OiREPCON 

STORE  C: REPCON  TO  M: REPCON 

STORE  ${M:NUM,  1 .6)  ♦$  (M:NUM,  8,2)+$  (M: NUM,  11  ,1)  +$  ( M :  NUM,  13,4) 
+  i  K:  NUM ,  1  8,4)  TO  OiNUM 
STORE  0  :  NUM  TO  M : N U M 

STORE  $  (M:DCCNO,  1,6)  ♦  $  (M : DOCNO , 8 , 4)  +$  (M:  DOCNO,  13, 4)  TO  ; 

o : cccno 

STORE  0 : CCC  NO  TO  M:DCCNO 
RELEASE  C: REPC0N,0: NUM,0: DOCNO 

*****  CAPTURE  THE  JULIAN  DATE  AND  PUT  INTO  OPENING  DATE 

STORE  C : JUL IAN  TO  MiOFEN 
STORE  M  :D DAT E+M:R DAT E+M  : OPEN +; 

+  '  N •  TO  M: DATES 

RE  LEAS  E  M: DEATE.M:  RD AT E.M: OP EN , 0 : ACTPTT , 0 : P REP T , ; 

0 : L LIMIT, OjULIMIT 

*****  THIS  IS  THE  START  OF  THE  SECOND  SCREEN  OF  DATA  ENTRY 

STORE  '  '  TO  Ml UI 

STORE  0  TO  M:UPRC 

STORE  '  'TO  M  :  ViUC 

STORE  «  •  TO  M:  ACTDISE 

STORE  •  •  TO  M:  A  CTPT 

STORE  •  • 

♦  •  • 

♦  •  *  TO  M  : DETAILS 

STORE  '  '  10  M: DEFV 
STORE  •  •  TO  M; DEFR 
STORE  •  'TO  M :  DEF 
STORE  •  •  TO  H:09Q 

STORE  '  'TOM: DOC 
STORE  *  '  TO  M :ORG 

STORE  0  TO  MiCCOST 

STORE  T  TO  C:  PAGF2 
DO  WHILE  0: PAG  E  2 


0, 


*  1, 

2, 


3, 


a  4, 

a  5  , 


10 

10 

10 

10 

10 

10 


3)  6 , 
a  7  , 
a  9. 

i  1$ 


:  UI 


UI 


PRICE 


SAY 
GET 

SAY  •  UNIT 

'  999999.99' 

SAY  *18.  EST.  CORRECTION  COST 
MiCCOST  PICTURE  '999999999  .99' 
SAY  '19.  WARRANTY  -  Y/N/U 
MlWNTY  PICTURE  '  A' 

WORK  UNIT  CODE 


'  GET  MlUPRC 


PICTURE  ; 
<0>  'GET 


10 
10 
10 
,  10 


SAY  '20. 
MlWUC 
SAY  *21. 
MlACTDISP 


<C> 


'GET 

'GET 


<C>  'GET 


5)  13, 
a)  1  a  , 
3  15. 


10 

10 

10 


AY 

SAY 

SAY 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 


22. 


ACTICN/DIS POSITION  -H/I/D/R/O 
PICTURE  ' X ' 

DETAILS  OF  DISCREPANCY  -  FIRST  2  ' 
LETTERS  MUSI  BE  DISCOVERY  CODE* 

'  GET  MiDETAILS 
'  2  3  A  .  ACTION  POINT 
MiACTPT  PICTURE  '  A  XX  X  XX  99  99  9  ' 

'  DEFECT  VERIFICATION  CODE  -  N/O/U/Y 

MlDEFV  PICTURE  'A' 

'  DEFECT  RESPONSIBILITY  -  C/N/S/U/X  <C>' 

MlDEFR  PICTURE  'A' 

'  9Q  ' 


<0>' 


GET  M: 09 Q  PICTURE  'X* 

2  16,10  SAY  '  ORIGIN  CO  CE  '  J 

GET  M:  ORG  PICTURE  «AAX' 

2  17,10  SAY  '30.  TYEE  DOC  ? 

GET  M:  DOC  PICTURE  *9* 

2  13,10  SAY  '  TYEE  DEFICIENCY 

GET  H: DEF  PICTURE  '  99' 

CLEAR  GETS 

STORE  T  TO  0:UI 
DO  WHILE  0 :  UI 

a  o, 10  say  •  ui  , m , ,  ; 

•  GET  M:UI  PICTURE  'AA' 

R  EAD 

IF  $(M:UI.1,1)  =  *  •  .OR.  $  CM:  UI,  2,  1)  =  1  ' 

2  23,30  SAY  *  NO  BLANKS' 

ELSE 

STCRE  F  TO  0: UI 
ENDIF 

ENDDO  0  :UI 

a  23,30  SAY  '  ' 

RELEASE  0:  UI 

STCRE  T  TO  C.-EPRC 
STCRE  T  TO  C:UPRC 
DO  WHILE  0:UFRC  .OR.  OrEPRC 

DO  WHILE  0 :  UPRC  .  „ 

2  1.10  SAY  '  UNIT  PRICE  '  GET; 

M:UPRC  PICTURE  *999999.99' 

READ 

IF  MiUPRC  <  .01  .OR.  M:UPPC  >  999999.99 
2  23,30  SAY  '  AMOUNT  OUT  OF  RANGE  ' 

ELSE 

STORE  F  TO  0  :UPRC 
ENDIF 

ENDDO  <C:UPRC> 

a  23  30  <=AY  '  1 

ST0E&  <K:UPRC  *  M ;  QTYDEF)  TO  M:EPRC 

a  1,43  SAY  'EXT  PRICE  S'  „  „  ... 

a  1,54  SAY  M; S  PRC  PICTURE  '  999999999.99' 

IF  M:EPFC  >=  1 00000000 

a  23,30  SAY  '  EXTENDED  PRICE  OUT  OF  RANGE' 

ELS  E 

STORE  F  TO  0:EPRC 

ENDIF 

ENDDO  <0; UPRC  &  0: EPRC> 

RELEASE  0:UPFC,0:EPRC 

2  23.  30  SAY  '  „  ,  ' 

a  2,10  SAY  '18.  EST.  CORRECTION  COsT  ': 

♦  *<0>  'GET  M:CCOST  PICTURE  '999999999.99' 

READ 

STCRE  T  TO  C:WNTY 
DO  WHILE  0: W NT Y 

2  3,10  SAY  '19.  WARRANTY  -  Y/N/U  ; 

'  GET  M : WNTY  PICTURE  'A' 

STORE  !  (M:  WNTY  )  TO  M  :  W  NT  Y 
READ 

IF  M:  WNTY  <>  '  Y«  .AND.  M :  WNTY  <>  'N'  ; 

.AND.  H:  WNTY  <>  '  U» 

a  23,  30  SAY  »  USE  Y , N  OR  U  ' 

ELSE 

STCRE  ?  TO  0: WNTY 

ENDIF 

ENDDO  <  C:  W  NT  Y> 

•  a  23,30  SAY  '  ' 

RELEASE  0:  WNTY 


2  4,10  SAY  '20.  WORK  UNIT  CODE  ; 

<0>  '  GET  M : WUC  PICTURE  'XXXXXXX' 

STCRS  T  TO  CrACTDISP 
DC  WHILE  0:  ACT DIS P 

2  5,10  SAY  *21.  ACTION/DISPOSITION  ' ; 
♦'-H/I/D/R/0  <0>  •  ; 

GET  M: A  CTDISP  PICTURE  »X» 

READ 

IF  M:  AC1DISP  =  *H'  OR.  MzACTDISP  =  'I*  ; 

.OR.  M: ACT DIS P  =  ' D  * . OR .  HsACTDISP  =  'R*  ; 
.OR.  M: ACTD ISP  =  'O'  .OR.  MzACTDISP  ='  ' 

STORE  F  TO  0: ACT DISP 

ELSE 

2  23,30  SAY  •  ERROR  IN  CODE* 

END  IF 

ENCDO  <C:ACTEISP> 

2  23,30  SAY  '  • 

RELEASE  0: ACTDISP 

STORE  T  TO  0: DISCODE 
CO  WHILE  0:DISCCEE 

2  6,10  SAY  '22.  DETAILS  OF  DISCREPANCY  -  FIRST  2  ' 

2  7,10  SAY  '  LETTERS  MUST  BE  DISCOVERY  CODE' 

2  8,10  SAY  *  '  GET  M :  DET  AILS 

READ 

STORE  $  (MzDETAILS,  1,2)  TO  M:DIS 
STORE  *  (H:DIS)  TO  S  :DIS 
USE  D:  W  HER  ED  IS  INDEX  D  :  DISCODE 
FINE  6  M :  DIS 
IF  #  =  0 

2  23,30  SAY  'WHERE  DISCOVERED  CODE  INCORRECT' 

ELSE 

STORE  F  TO  0  :DISCODE 
END  IF 

ENDDO  <0 : EISCODE> 

2  23. 30  SAY  •  ' 

RELEASE  0  :  EIS  COD  E 

STORE  T  TO  0 : ACTPT T 
DC  WHILE  0  :  ACTPTT 

2  12,10  SAY  '23A.  ACTION  POINT  : 

'  GET  M:  ACTPT  PICTURE  '  A  XX  XXX9  99  99 ' 

READ 

IF  M:ACTET=  '  ' 

2  23,30  SAY  'MAY  NOT  BE  BLANK' 

ELS  E 

STOFE  F  TO  0: ACTPTT 
END  IF 

ENCDO  <0:  ACTPTT> 

2  23,30  SAY  '  ' 

STORE  T  TO  0 : DEF  V 
DO  WHILE  C  : D E FV 

2  13,10  SAY  '  DEFECT  VERIFICATION  CODE'; 

+ ' -N/G/U/Y  <0>'  GET  BsDEFV  PICTURE  'A' 

R  EAD 

IF  tfsDEFV  =  'N'  .OR.  M :  D  EFV  =  'O'  ; 

.OR.  M:DEF V  =  •  O'  ; 

.OR.  M :  DEF  V=  »Y'  .OR.  MzDEFV  =  '  ' 

STORE  F  TO  0: DEF V 
ELSE 

2  23,30  SAY  'CORRECT  CODE  MUST  BE  ENTERED' 
ENDIF 

ENDDO  <  0:  DE  F  V> 

2  23,  30  SAY  ' 

RELEASE  0:  DEFV 
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STORE  T  TO  C : DEFR 
DC  WHILE  0  :  CEFR 

a  14,10  SAY  '  DEFECT  RESPONSIBILITY 

♦'C/N/S/U/X  <0>'  GET  M : D EFR  PICTURE  ' A  ’ 

READ 

IF  M :  D  E  F  E  =  'C*  .OR.  M  :  DEFR  =  *  N  '  ; 

.OR.  M : DEF  R  =  'S'  .OR.  M : DEFR  =  *U'  ; 

.OR.  M : D  EFR  =  'X*  .OR.  H:DEFR  =  '  * 

STORE  F  TO  0: DEFR 

ELS  E 

a  22,30  SAY  'CORRECT  CODE  MUST  BE  ENTERED* 
END  IF 

ENDDO  <0:  DEFR> 

S  23,  30  SAY  '  ' 

RELEASE  0:  DEFR 


IF  M:COG  =  '  9C» 

STORE  T  TO  0:  9  Q 
DO  WHILE  0 : 9Q 

3  15,10  SAY  '  9Q  '  ; 

♦'  '  GET  M : 09Q  PICTURE  *X! 

READ 

IF  K:09Q  ='2'  .OR.  M:09Q  ='4'  ; 

.CR.  M :  09q  ='5'  .OR.  M:09Q  ='7'; 

.CR.  M :  09Q  =  •  9  *  .OR.  H:09Q  ='  ' 

STORE  F  TO  0:9Q 

ELSE 

a  23,30  SAY  '  OUT  OF  RANGE' 

EN  DIF 

ENDDO  < C  : 9Q> 

a  23,30  SAY  '  ' 

RELEASE  C:  90 
ENDIF  <M:COG  =  9Q> 


STORE  T  TO  C:ORG 
DC  WHILE  0  :  C FG 

a  16, 10  SAY  '  ORIGIN  CODE 

♦  *  '  GET  M : ORG  PICTURE  ' A  AX ' 

READ 

IF  $(M:CEG.1,1)  =»  '.OR.  $  1 M : ORG , 2 ,  1)  =  '  ' 

a  22,20  SAY  '  FIRST  2  POSITIONS  MAY  NCT' ; 
♦' CONTAIN  BLANKS' 

ELSE 

STORE  F  TO  0 : CRG 
ENDIF 

ENDDO  <0:  ORG> 
a  23,  20  SAY  ' 

RELEASE  0:0RG 


STORE  T  TO  C  : T YPE 
DC  WHILE  0:TYPE 

a  1 7,  1 0  SAY  '3  0.  TYPE  DOC  ' ; 

♦'  '  GET  M : DOC  PICTURE  '9' 

READ 

IF  M:DOC  <  '1'  .OF.  M :  DO  C  >  '7' 
a  23,30  SAY  ' OUT  OF  RANGE  ' 

ELSE 

"store  F  TO  0: TYPE 
ENDIF 

ENDDO  <  C:  T  Y  PE> 

a  23,30  SAY  '  ’ 

RELEASE  0:UIC,0:UIC2,0: PREP,0: DOC , 0: SER NO , C : TY FE 

STCRE  T  TO  C : DEF 
DO  WHIL  E  0 : DEF 

a  13,10  SAY  '  TYPE  DEFICIENCY  •; 

♦  '  '  GET  M : D E F  PICTURE  '99' 

REA  D 

IF  M : DEF  <  '01'  .OR.  M : D EF  >  '19' 


3  0 


19  ONLY' 


2  23,30  SAY  '  USE  0  1  - 

ELSE 

"STORE  F  TO  0:  DEF 
END  IF 

ENCDO  <  0:  DE  F> 

REIEAS  E  0:  DEF 
2  23,  30  SAY  ' 

*****  EFCMET  USEE  FOE  RESPONSE 

STORE  T  TO  C : END 
DC  WHILE  0: END 

STORE  •  '  TO  OiRSFLY 

a)  20,20  SAY  •  1  -  POST  CASE' 

2  21,20  SAY  '  2  -  CHANGE  DATA* 

2  22,  20  SAY  '  3  -  EXIT  WITHOUT  POSTING  • 

2  $+1,34  SAY  '  •  GET  0: REPLY 

READ 

IF  C-.REELY  <>  '1»  .AND.  0 :  R  EP  L  Y  <>  '2'  ; 

.AND.  0:  REPLY  <>  '3» 

3  23,5  SAY  '  ANSWER  WITH  1-2-3  ONLY 

ELSE 

“STORE  F  TO  0;  END 
END  IF 

ENDDO  <C:ENE> 

2  23,  1  0  SAY  ' 

RELEASE  0  :  E  NC 

ERASE 

IF  0:  REPLY  =  '  1  » 

2  10,20  SAY  'CASE  BEING  POSTED  TO  DATA  BASE 
2  13,20  SAY  '  PLEASE  STANDBY 

2  20,20  SAY  '***  DO  NOT  INTERRUPT  *** 

STOEE  F  TO  0 :  P  A G  £  2 
STORE  'IF'  TO  K:TYPE 
DO  C: X  DEHNDLR.  PEG 
STORE  '  2F'  TO  H:TY?E 
DO  C: X  DEHNDLR.  PRG 

WR  A  3E 

2  10,20  SAY  '  CASE  NUMBER  OF  THE  NSW  CASE' 

2  12,33  SAY  M  :  C  A  S  E 

2  23,20  SAY  '  PRESS  ANY  KEY  TC  CONTINUE' 
WAIT 


ENCIF 

IF  0:  REPLY  =  *2' 

STORE  T  TO  0:  PAGE  2 

ELSE 

IF  C:  RSELY  =  »  3' 

STORE  F  TO  0:  PAGE2 
END  IF 
ENCIF 

ENDDC  <C:?AG  E2> 

RELEASE  ALL  EXCEPT  C:* 

STCRE  T  TO  0  :T RU  E 
ENDDO  <0 : TRU  E> 

PSTUEN 


*****  P MI  OF  PROGRAM 


V.  CASE  UPDATE  MODULE 

*********************************< t************************* 


**  ** 

**  DATE:  8  DECEMBER  1983  ** 

**  VERSION:  1.0  ** 

**  MODULE  NAME;  UPDATE  ** 

**  MCDULE  FURPOSE:  ALLOW  ADDITION  AND/OR  CORRECTION  CF  ** 

**  DATA  IN  QDR  CAS E  CURRENTLY  IN  Q DR  ** 

**  SYSTEM.  ** 

**  MCDULE  INTERFACE  DEFINITION  ** 

**  INPUTS:  CASE,  C : W  HO ,  ClJULIAN  ** 

**  OUTPUTS:  ALL  DATA  ELEMENTS  IN  OPEN1  &  OPEN  2 ,  ** 

**  M:  T  Y  F  E  ** 

**  MCDULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  ** 

**  USER  ENTERS  CASE  NUMBER  OF  CASE  TO  BE  CHANGED.  ** 

**  MCDULE  SEARCHES  DATA  BASE  FOR  CASS  AND  ** 

**  DISPLAYS  INFO  F MAT ION  CURRENTLY  ON  FILE  THROUGH  ** 

A  SERIES  OF  THREE  MENUS.  DATA  IS  WRITTEN  TO  ** 

**  FIRST  DATA  BASE  MIDWAY  IN  PROCESS  DUE  TO  ** 

**  LIMIT  OF  64  MEMORY  VARIABLES  AT  ANY  ONE  TIME.  ** 

**  CHANGE  OF  DATES  IS  NOTED  FOR  STATISTIC  ** 

**  MCDULE  UTILIZATION.  ** 

**  S  UP  E  ROR  DIN  AT  E  MODULES:  MENU1  ** 

**  SUECFDINATE  MODULES:  XDEHNDLR  ** 

**  AUTHOR:  J.G.  BOYNTON  ** 

*  *  ** 


STORE  T  TO  U  :  U  P  D  AT  E 
CO  WHILE  U:  UPDATE 
STORE  T  TC  U :  T  RU  E 
DO  WHILE  U : T R U  E 
ERASE 

STORE  '  ' TO  U: CHOICE 
TEXT 

*****  UPDATE  ***** 


THIS  PROGRAM  ALLOWS  YOU  TC 
UPDATE  A  QDR  CASE 


1  -  CONTINUE 

2  -  RETURN  TO  MENU 

EN  D  TE  X  T 

a)  20^40  SAY  •  '  GET  U:CHOICE 

READ 

DO  WHILE  U.'CHOICE  <>  '1'  .AND.  U:CHOICE  <>  >2' 
a  23,20  SAY  'ENTER  1  OR  2  FOR  YOUR  RESPONSE' 
2  20, 4C  SAY  '  '  GET  U:  CHOICE 

READ 

ENDEC  <U  :  CHO  IC  E> 

ERASE 

IF  U : C  KC I CE  =  '2' 

RELEASE  ALL  EXCEPT  C:* 


EETURN 

ENDIF 

ERASE 

STORE  •  'TO  M: C  ASE 

TEXT 

*****  SELECT  RECORD  FOR  UPDATE  ***** 


ENTER  THE  CASE  NUMBER 
OF  THE  RECORD  TO  BE  UPDATED 


ENDTEXT 

STORE  '  '  TC  0 :  REPLY 

5)  10,  29  SAY  'CASE  '  GET  M:CASE  PICTURE  '999999X* 

P  E  A  D 

STORE  M  :  C  AS  E  TO  K:  KEY 
STORE  'IE'  TO  M:TYFE 
CO  C  :  X 1 3  END  LR 
IF  M : TYPE  =  '9' 

S  12,25  SAY  'RECOFC  NOT  FOUND  IN  OPEN  FILE  ' 
a  13,21  SAY  'DO  YCU  WISH  TO  CHECK  THE  CLOSED  FILE  ?' 
a  14,40  GET  U  :RSPI  Y  PICTURE  'A' 

READ 

DO  WHILE  !  (U :  REPLY)  <>  'Y'  .AND.  !(U:REPLY)  <>  'N* 
d  14,45  SAY  '  ENTER  Y  CR  N' 
a  14,40  GET  U:REPLY  PICTURE  'A' 

READ 

ENCDO 

3  14,45  SAY  '  » 

IF  !  (U : R  FPL  Y )  =  •  Y' 

STCEE  *  3E '  TO  f!  :TYPE 
DC  C : XDBH  NDLR 
IF  M:  TYPE  =  '  9  ' 

a  16,23  SAY  'RECORD  NOT  FOUND  IN  THE  QDR  SYSTEM 
5  17,27  SAY  'STRIKE  ANY  KEY  TO  CONTINUE' 

WAIT  TO  U:  REPLY 
ELSE 

IF  K:T  Y  P  E  =  '1' 

a  18,28  SAY  'RECORD  CURRENTLY  IN  USE' 
a  19,27  SAY  'STRIKE  ANY  KEY  TO  CONTINUE' 

WAIT  TO  U  :  REPLY 
ELSE 

ERAS  E 

STORE  F  TC  U : TRU  E 
STORE  'CLOSE'  TO  U:FILE 
ENDIF 
ENDIF 
ENDIF 
ELSE 

IF  H  :  TYPE  =  '  1' 

a  12,28  SAY  'RECORD  CURRENTLY  IN  USE' 

3  13,27  SAY  'STRIKE  ANY  KEY  TO  CONTINUE' 
a  14, 40  GET  U:  REPLY 
READ 
ELSE 

ERASE 

STORE  F  TO  U : TRUE 
STORE  'OPEN'  TC  U  :FIL  E 
ENDIF 
ENDIF 

ENDDO  <  U: TR  UE> 

****  THIS  SECTION  FOB  CURRENT  DATES  VALUE  CAPTURE 
ERASE 

STORE  $  (M  :  E  AT  SS  ,  1 , 5  )  TO  M  ;  ELATE 


STORE 

STORE 

STOEE 

STORE 

STORE 

STORE 

STORE 

STORE 


$  (M:  CATES, 6.  5) 

S  (M:  DATES  ,  1  1  ,  5 
$  (M  :  DAT  ES  ,  1 6 , 5 
$  (M:  DATES  ,21  ,  5 
$  <M:  CATES  ,26 , 5 
$  (M:  CAT  ES  ,3  1  ,  5 
$  (M:  CATES, 36, 5J 
I  (M :  CAT  ES  ,41  ,  5‘ 


TO  M: REATE 
TO  M :OPEN 
TO  a  :LC ATE 
TO  «  :SCRDATE 
TO  M  :  IR  E  A  TE 
TO  a  :  RI MD  AT 
TO  M : CLOSE 
TO  a : REOPEN 


STORE  M : DD  ATS  TO  T:EEATS 
STORE  M  :  RD  ATE  TO  T  :  BEAT  E 
STORE  a :OPEN  TO  T : CEEN 
STORE  MlLDATE  TC  T  :  LEATE 
STORE  M-'SCRDATE  TO  T:SCRDATE 
STORE  M  :  I R  E  AT  E  TO  TiIRDATE 
STORE  M : R I MDA T  TO  T  :  EIMDAT 
STORE  MiCLCSE  TC  T:CIOSE 
STORE  a : REOPEN  TO  T  :  REOPEN 


*****  THIS  SEQUENCE  CALCULATES  THE  UPPER  AND  LOWER  YEARS  FOE 
*****  INEUT  and  IS  BASED  ON  THE  CURRENT  JULIAN  DATE 
*****  U : LLI aiT=  YEAR  aiNUS  TWO  YEARS 
*****  UrULIMIT  =  YEAR  PLUS  ONE  YEAR 

STORE  $  (C:  JULIAN, 1,2)  TO  TEMPI 

STORE  VAI(TEMPI)  TO  TEMP  1 A 

STORE  VAL  ('  2')  TO  LOW 

STORE  VAL  (•  1»)  TO  HIGH 

STORE  TEMPI A-LOW  TO  ILaT 

STORE  TEMPI A+HIGH  TO  ULMT 

STORE  STR  <LLHT  ,  2  )  TO  UlLLIMIT 

STORE  STR  (ULMT  ,2)  TO  U:ULiaiT 

RELEASE  TEMPI,  TEMPI  A , LOW, HIGH, LLMT, ULaT 

ERASE 


2 

f 

3 

,2 

SAY 

• 

DATES  CURRENTLY  IN 

FILE 

FOR  CASE 

2 

3 

,45 

SAY 

a 

;  C  AS  E 

a 

8 

,  2 

SAY 

DISCOVERY  DATE 

'GET 

M  ;  DD  AT  E 

a 

9 

,  2 

SAY 

RECEIVED  FROM  ORIGIN 

'  GET 

M; RD ATE 

a 

1  0 

,2 

SAY 

OEENING  DATE 

*  » 

a 

10 

,  26 

SAY 

M 

:  OPEN 

a 

1  1 

,2 

SAY 

TRANSMITTAL  DATE 

•GET 

M  ;  L  D  AT  E 

a 

12 

,  2 

SAY 

SCREEN  REPORT  DATE 

'GET 

M  :  SC  ED  ATE 

a 

13 

,2 

SAY 

INTERIM  RESPONSE 

DATE 

•GET 

M : IR  DATE 

a 

14 

,  2 

SAY 

RETURN  F  ROM  ITEM 

MGR 

•GET 

a;  RIKDAT 

a 

15 

,  2 

SAY 

CICSE 

*  • 

a 

15 

,36 

SAY 

M; 

CLOSE 

a 

16 

,  2 

SAY 

« 

RECPEN 

t  pip 

a  :RECPEN 

a)  18,2  SAY  ’  <*  MAY  NOT  CHANGE  THESE  D ATES> 

CLEAR  GETS 


STORE  •  •  TC  U : REPLY 
STORE  T  TO  U:  DATET 
DC  WHILE  U:  DATET 

STORE  T  TO  U:  DDATET 
DO  WHILE  U  :  CCATET 

0  8,35  SAY  '  ' 

READ 

IF  M: DEATE  <>  ' 


GET  H: DDATE 


IF  I  (B:  DDATE.  1- 2)  <  UiLLIMIT  ; 

.CR.  5  (  M:  C  CAT  13,  1 , 2  >  ’J:ULIMIT; 

.CR.  5 ( M: DDATE, 3,3)  <• 001 '  ; 

.CR.  MM;  DEATE,  3,  3  >  '365'; 

.CR.  M : ELATE  >  C: JULIAN 
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d  23,30  SAY  'DATE  OUT  OF  RANGE’ 

ELSE 

STORE  F  TO  U: DDATET 

ENDIF 

ELSE 

STORE  F  TO  U: DDATET 
ENDIF  <EL  ANK> 

ENCDO  <  U: DD  ATET> 

a  23,30  SAY  •  • 


STORE  T  TO  U: RDAT  ET 
DO  WHILE  U  :  EEATET 


GET  M: RDATE 


3  9,35  SAY  •  • 

READ 

IF  $ ( M : RDATE, 1.2)  <  U: LLIMIT 


>  U : ULIMIT 
<•001’  ; 

>  •  365’  ; 


.OR.  2  (M  IKD  ATE,  1,2) 

•  OR.  3  (M:RD  ATE, 3 ,3 
.OR.  2  (M :RD  ATE,3 , 3 
.OR.  K :  R DAT  E  >  CiJULIAN 
.OR.  M:  RDAT  E  <  M :  DD  AT  E  ; 

.OR.  M  :  RDAT  E  >M:OPSN 

S  23,30  SAY  ’DATE  OUT  OF  RANGE’ 

ELS  E 

STGRE  F  TO  0: RDATET 

END  IF 

ENCDO  <  U: R  D  ATET> 

S  23,30  SAY  •  ' 

RELEASE  U:  DDATET,  U  iRDATET 

STORE  T  TO  U : LDAT  ET 
DO  WHILE  U: DDATET 

a  11,35  SAY  •  »  GET  Ji :  L  DATE 

REA  D 

IF  M:  L  D  ATE  <>  '  » 

IF  2  (MiLDATE,  1,2)  <  UiLLIMIT  ; 

.CB.  $(  MiLDATE,  7,2)  >  UiULIMIT  ; 
.CR.  $  (  M :  L  D  AT E,  3 ,  3)  <  •  001  ■  ; 

.08.  S (K:LDATE,3,3  >  ’365’  ; 

.CR.  M: LDATE  >  C: JULIAN  ; 

.CR.  a: LDATE  <  MiOPEN 

a  23,30  SAY  ’DATE  OUT  OF  RANGE’ 


STORE  F  TO  U  :  L  DAT  ET 


ELSE 


ELSE 
END  IF 
STORE  F  TO  U: DDATET 


END  I  F 
ENCDO  <  U:  L D  A IET> 
a  23,30  SAY  ’ 

STORE  T  TO  U : SCD  A  T ET 
DO  WHILE  U  :  SCD ATET 

a  12,35  SAY  •  ’ 

READ 

IF  MiSCEDATE  <>  ’ 


GET  M : SC RDATE 


IF  2  (MiSCRDATE,  1 ,2)  <  UiLLIMIT  : 

.CR,  $(  MiSCEDATE,  1, 2)  >  UiULIMIT  ; 

.CR.  2(M;SCEDATE,3,3)  <’00T  ; 

.CR.  S  (  MiSCEDATE,  3,  2).  >  ’  365’; 

.CR.  MiSCEDATE  <  M: LDATE 

a  23,30  SAY  ’DATE  OUT  OF  RANGE’ 

ELSE 

STORE  F  TO  U : SC  DA  TET 


END  IF 
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ELS  v 

“STORE  F  TO  UlSCDAIET 
ENDIF 

ENDDO  <  U:  SC  I  ATET> 
a  23.30  SAY  * 

RELEASE  0:  LEATET,  U  :  SCDATET 

STCRE  T  TO  U:IRDATET 
DO  WHILE  0  :  IRD ATET 


3  13,35  SAY  '  ' 

HEAD  ^  , 

IF  M:  I  RE  ATE  <>  1 


GET  M : I R DAT E 


IF  $  (M :  IRD  ATE ,  1  ,  2)  <U:LLIMIT  : 

1  SjHtlfiDiTfe.1.21  >  UsOtlMIT: 

.CR.  3  M:IRDATE,3,3  <*001*  ; 

.CR.  $ (M:IRDATE,3 ,3[  >  *365'; 

.CR.  H ; IRC  AT  E  <  MrOPEN 

a  23,30  SAY  'DATE  OUT  OF  RANGE' 

ELSE 

STORE  F  TO  UtIRDATET 
ENDIF 

ELS  E 

STOFE  F  TO  U  :  IR  D  AT  ET 
ENDIF 

ENDDO  <U: I  RE  ATET> 
a  23,  30  SAY  ' 

STCRE  T  TO  U:  RIND  ATT 
DO  WHILE  U: EIMDATT 


a  14,35  SAY  '  ' 

READ  x.  . 

IF  If:  RI  ME  AT  <>  ’ 


GET  H : RIMDAT 


IF  3  IK:  RIM  DAT,  1 , 2)  <U:LLIMIT  ; 

fef  S(H:afM6Aj,1.2|  >  U:ULIIIT; 
.CR.  S i M:RIMDAT,3,3  <'001'  ; 

•CBi  fi7S8xlSP*iilb  ^i36o! 

ELSE 

IE  M : RI ME  AT  <  M :L  DATE 

a  2  3,30  SAY  '  RTN  DATE  NOT  '; 
♦'BEFORE  TRANSMITTAL  DATE' 

ELSE 

STORE  F  TO  U  :  RIMD ATT 

ENDIF 

ENDIF 

ELSE 

STORE  F  TO  U ; FIMDATT 
ENDIF 

ENDDO  <U: RI ME ATT> 

2  23,  30  SAY  ' 

+ '  ' 

RELEASE  (J:  IEDATET,  U:RIMDATT 

STCRE  T  TO  U:  REOP  ENT 
DO  WHILE  U :  REOPENT 


a  16,35  SAY  ' 
PEAD 

IF  MjRECPEN  <> 


GET  M  :  R EOP  EN 


IF  3  (M:  REO  FEN  ,1,2)  <U:LLIMIT  ; 

.CR.  5(M:REOPEN,1,2|  >  U:ULIMIT; 

.CR.  3  M:FEOPEN,3,3  <'001'  ; 

.CR.  $ ( M : REOPEN ,3 , 3  >  '365' 

a  23,30  SAY  'DATE  OUT  OF  RANGE’ 
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EL  S  E 

IF  M:RECPEN  <  NlOPEN 

3  23,30  SAY  'REOPEN  DATE  HAY  NOT': 

♦»  BE  LESS  THAN  OPEN  DATE  I 

ELSE 

STO  RE  F  TO  CJ:  REOPENT 
ENDIF 
ENDIF 

ELSE 

STORE  F  TO  U :  REOPENT 
ENDIF 

ENDDO  <U:RECPENT> 

2  23,  30  SAY  '  ' 

+ '  • 

STORE  T  TO  U: END 
DO  WHILE  U : EN D 

a  21,10  SAY  '  *****  CHECK  DATES  ABOVE  *****  » 

3  22,10  SAY  ' <C HOCSE>  1-  CONTINUE  2-  CHANGE  3-EXIT* 
a  23,10  SAY  •  '  GET  U : R E PL Y  PICTURE  '9» 

READ 

IF  UrEEPLY  <>  ' 1 ' . AND.  U : REPLY  <>  • 2 • . A ND. U: R EPL Y  <>  *3 
a  22,10  SAY  '  ANSWER  WITH  A  1-2-3  ONLY' 

ELSE 

STORE  F  TO  U : END 
ENDIF 


ENDDO  < U : EN D > 
a  21,10  SAY  • 
a  22,10  SAY  * 
a  23,10  SAY  • 

RELEASE  U:REOPENT  ,U: END 


IF  U: REPLY  ='  1* 

STORE  F  TO  U: CATET 
STORE  T  TO  U:CCNT1 

IF  MrDDATE  <>  TlDDATE  .OR.  M  :  R  DATE  <>  T:  R  D  AT  E  ; 

.CR.  HsOPEH  <>  T  :  OPEN  .  OR  .  M :  L  D  AT  E  <>  T  :  LD  ATE  ; 
.OR.  M:SCREATE  <>  T:  SCRDATE  ; 

.CR.  M  :I  RD  iTE  <>  T:IBDATE.OR.M:RIMD  ATOT:  RIHD  AT 
.CR.  M :CLOSE  <>  TlCLOSE  .OR.  MlREOPEN  <>T : REOFEN 
STORE  TO  H:  DA  TEC  I 

EISE 

STORE  •  *  IC  MiDATECI 
ENDIF 

RELEASE  ALL  LIKE  T:  * 

STORE  M: DDATE  +  H: RDAT  E  +  H :OP EN  +  M:LD AT E+M: SCRDATE; 

♦M: IRDAIE+M:RI HDAT+H : CLOSE+M : REOPEN+ W : D AT ECI ; 
TO  N:  D  AT  ES 

RELEASE  M :DD ATE, M:RD ATE. N: OPEN, H:LD ATE.M: SCRDATE, : 

M:IRDATE,M:  RIMC AT, H: CLOSE, M: REOPEN, M: DAT ECI 


ELSE 

IF  U;  RE  PLY  ='3' 

STORE  F  TC  (J:  DAT  ET 
STORE  F  TC  U  : CON T  1 
STORE  F  TC  U;  CON  T2 
STORE  F  TC  U : CON  T3 
IF  U:  FILE  =  'OPEN' 

STORE  '  1  G  '  TO  K.-TYPE 

ELSE 

STORE  ' 3G '  TO  MrTYPE 
ENDIF 

DO  C: XDBHNDLR 
RELEASE  ALL  EXCEPT  C:* 
FETURN 
ENDIF 

ENDIF 
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ENDDO  <U  :  D  ATET  > 
RELEASE  0:  DATET,  U:  END 

ERASE 

EO  WHILE  U:  CONTI 


*****  DISPLAY  OF  CASE  DATA  FROM  FIRST  DATABASE 


a  i 
a  i 


a  i 
a  i 


a  io 
a  1 1 
a  12 
a  13 

a  14 
a  15 

a  16 

a  17 
a  is 
a  19 
a  20 

CLEA 


,  2  SAY 
,17  s  a: 

,42  SAY 
,55  SAY 
,67  SAY 
,2  SAY 
PICTI 
,41  SAY 
,2  SAY 
,2  SAY 

GET  i 
,2  SAY 
PICTI 
,2  SAY 
GET  I 
,2  SAY 
GET  ; 
,2  SAY 

GET  i 
1 , 2  SAY 

GET 
,2  SAY 
GET  I 
,2  SAY 
GET  1 
,2  SAY 
GET  I 
,2  SAY 
GET  ! 
,2  SAY 
GET  ! 
,2  SAY 
GET  I 
,2  SAY 
GET  I 
,2  SAY 
GET  I 
,2  SAY 
GET  I 
,2  SAY 
GET  I 
,2  SAY 
GET  ! 
R  GETS 
STORE 

a  2  2,i' 
a  2  2,3 

READ 


NSN: ' 


Y  $  f  M:NSN.  1.4)  +  •  -'+$(M:NSN,5,2)  +  *  -  '  ; 

+  $  (M:NSN,7,3)  ♦  '-'+S(M: NSN,  10,4) 

•CAT  •  GET  M  :CA  I 
•CASE  NUMBER:* 

M  :  C  AS  E 

•  COG  • 

URE  *  XX ' 

•SMIC  '  GET  M:  S  M  PICTURE  'AX' 

•  UIC  • 

'  REPORT  CONTROL 

t  • 

M :  R  E  P  CO  N  PICTURE  ' XXXXXX999999 • 

'  ACTION  POINT  ' 

URE  • AXXXXX99999 ' 

•  NOMENCLATURE  •; 

K: NO M  EN  PICTURE  •  XXXXXXXXXXXXXXXXXXX5 
'  F  S  CM 

M:FSCM  PICTURE  *XXXXXX' 

•  CONTRACT 

i  . 

M:NUM  PICTURE  ' X XXXXX99AXXXXXXXX' 

'  DOCUMENT 


M:  COG 


M:  ACTPT 


M: DOC  NO  PICTURE  *  XX XX XX999 99 9 99  • 

•  QUANTITY  DEFICIENT 
M:QTY  DEF  EICTURE  *999999  ' 

•  UNIT  OF  ISSUE 
M:UI  PICTURE  'XX' 

'  UNIT  PRICE 

M:UPRC  PICTURE  *999999.99' 

'  ORIGIN 

M : 0 R G  PICIURE  'XXX' 

•  9  Q  REGION  CODE 
M:09Q  PICIURE  'X' 

•  SCREEN  QUANTITY 

M:  SCRQTY  PICTURE  '999999  ' 

'  SCREEN  CODE 

M:SCR  PICTURE  'XXX' 

•  TYPE  DOCUMENT 
MlDOC  PICTURE  •  9' 

'  VENDOR  LI  ABILITY  CODE 

M:  VLC  PICTURE  '  A ' 

•  CREDIT  CODE 
tUCR  PICTURE  'A' 

'  TYPE  DEFECT 

M:DSF  PICTURE  '99' 


'  '  TO  U: REPLY 

0  SAY  '  ENTER  <N>  TO  SKIP  ' 

0  SAY  '  'GET  U-.REPLY 


MlDOC 

i 

M:  VLC 

i 


!  (U  :  REPL  Y)  =  'N' 

STCRE  F  TO  U:FIRST  PG 
STORE  F  TO  U:C0NT1 
STCRE  T  TO  U  : CO NT 2 
IE  U:  FILE  =  ' CPE N ' 
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STOBE  '  1C  TO  M :T YP  E 


ELSE 

““STOKE  •  3C*  TO  MiTYPE 
EN  DIF 

ELSE 

STORE  T  TO  U : FIRST  PG 
ENDIF 

2  22, 10  SAY  1 

a  23,10  SAY  •  * 

*****  SKIP  FIRST  PAGE  OF  UPDATE  IF  REPLY  WAS  <N> 

CO  WHILE  U: FIRSTPG 
STORE  T  TO  0  :C AT 
DO  WHILE  U  :  C  AT 

a)  1.42  SAY  'CAT  '  GET  M :  C  AT  PICTURE  '9' 
READ 

IF  M :  C  AT  ='1*  .OB.  M: CAT  ='2' 

STORE  F  TO  U: C AT 

ELSE 

2  23,20  SAY  '  1  OR  2  ONLY ' 

ENDIF 

ENDDO  U  :C  AT 

2  23.  20  SAY  •  • 

RELEASE  U:  C  AT 


STORE  T  TO  U  :COG1 
STORE  T  TO  U:COG2 
DC  WHILE  U :  COG  1  .OR.  U:COG2 
DO  WHILE  U  :  COG  1 

2  2.35  SAY  '  •  GET  M:COG  PICTURE  '9X' 
READ 

STOBE  !  (Ms  COG)  TO  M:  COG 
IF  $  (M  :  COG  ,2.1)  =  •  • 

2  23,20  SAY  '  NO  BLANKS  IN  2D  « 
+ ' POSITION ' 

ELSE 

STORE  F  TO  U :COG 1 

ENDIF 

ENDDO  <U  :COGl> 

2  23  ,20  SAY  ' 

+ '  ' 

*****  CHECKS  THAT  COG  IS  VALID  IN  CURRENT  COG  TABLE... 
*****  BE  VALID  TO  CONTINUE 

USE  E  :COG  INDEX  D:COG3 
FIND  SM:COG 
IF  #  =  0 

2  23,20  SAY  '  COG  INVALID  -  ENTER  * 
+  '  CORRECTED  ENTRY' 

ELSE 

STORE  F  TO  U : COG2 
ENDIF 

ENDDO  <U:C0G1  S  U:COG2> 

RELEASE  U : CCG1 ,  U:COG2 
2  23,  20  SAY  • 

♦  •  » 

IF  S:  COG  =  *  1 H '  .OB.  K:COG  =  '2H'  .OR.  N:COG  = 
STORE  T  TO  U: SMIC1 
DO  WHILE  U  : S H I C 1 

2  2,4  5  SAY  '  '  GET  3:5  M  PICTURE  'AX' 

READ 

STCRS  !  (  M:SM)  TO  M:SM 
IF  $  ( M :  5  M  ,  1  ,  1 )  =  •  X'  .OR  .  $  (N:  SX,  1  ,  1) 
STORE  F  TO  U  :  S  M I C  1 


ELS£jo)  23  ,30  SAY  'X  OR  L  ONLY' 

ENDIF 

ENDDO  <U:SMIC1> 

ENDIF 

RELEASE  UrSMICl  , 

a)  23,  30  SAY  • 

STORE  T  TO  0 : UIC1 

DC  aH3^35UlAYC«  '  GET  M:UIC  PICTURE  'AXXXXX' 

^A$iS:;uic:3;ij= :  ::81:  i  ;  :°oi: 

$  (M:3I25^0)  SAY  '  "  NO  *  BlInKS1  aLl&wLd  IN  UIC' 


^LS  E 

STORE  F  TO  0:  UIC  1 
END  IF 

ENDDO  <U:UIC1> 
a)  23.20  SAY  ' 

RELEASE  U:  UICl 


3  a  35  SAY  '  '  GET  M :  BEFCON  PICTURE  • XXXXXX 999 999' 
RE  a6 

STORE  T  TO  U  :  ACTPT  T 

D°  WaI5!35:SAYP^*  GET  M:  ACTPT  PICTURE  '  AXXXXX999S9 
READ 

TF  M-  A  CT  PT=  '  ' 

S  2:,30  SAY  'MAY  NOT  BE  BLANK- 

ELS  E 

STORE  F  TO  U: ACTPTT 
END  IF 

ENDDO  <  U:  ACTFTT>  . 

a  23,30  SAY  ' 

STORE  T  TO  UiNOMEN 

D°  SAYEl*'  'GET  t:  NO  HEN  PICTURE  ; 

®  '  • XXXXXXXXXXXXXXXXXXX' 

IFA?  (M:  NCMEN.  1  ,  1)  = 

.OR.  S  M:  NO  MEN, 2,1)  =  ’  5 

^  «  )  u  .  tT  A  U  r  D  1  \  —  1  1 


.OR.  I  (M: NO  MEN, 2, 1)  = 

.OR.  $]m:NOMEN,3.  1)  =' 

a  23,30  SAY  <  NO  BI 


BLANKS  IN  FIRST  3'  ; 
POSITIONS ' 


^LS  E 

STORE  F  TO  U: NOMEN 

ENDIF 

ENDDO  <U:  NO M EN> 
a  23,30  SAY  ' 

RELEASE  U:  NCMEN 


*****  INPUT  FS  CM 

2  7,35  SAY  '  '  GET  M:FSCM  PICTURE  'XXXXXX' 

*****  INPUT  CONTRACT  NUMBER 

2  8,35  SAY  '  'GET  M:NUM  PICTURE  ' XXXX XX9 9 AXXXXX XX X 

*****  IMFUT  DOCUMENT  NUMBER 

STORE  T  TO  U : U ICT 

STORE  T  TO  U:PREPT 

STORE  T  TO  U : DCCT 

DO  WHILE  U : DOC T  .OR.  U:UICT 
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***** 


3)  9,3  5  SAY  '  'GET  ElDOCNO  PICTURE  '  X  XXX  XX  9  9  S  9  9  99  9 ' 
READ 

IF  M:  DOCNO  =  •  • 

STORE  F  TO  U:  D  OCT 
STORE  F  TO  U : U  ICT 

ELSE 

IF  $  (M  :  ECCNO,  1,1)  ='  '  ,OR.$  (M;  DOCNO,  2, 1)  =  '  •; 
.OR.  I  (M:  DOCNO  ,3,1)  =  '  •  ; 

.OR.  $  (M:DOCNO,4, 1  =  '  '  ; 

.OR.  S]M:DOCNO,5,  1)  =  •  « 

2  23,20  SAY  1  NO  BLANKS  ALLOWED  IN  UIC' 

ELS  E 

STORE  F  TO  U: DOCT 

END  IF 


IF  $(M: ECCNO, 1 2,3)  >'366'  ; 

.OR.  $ fM:DOCNO, 1 2,3)  =  1  •  ; 

.OR.  $ (H:DOCNO,1 1,41  =  •  • 

a  23,  50  SAY  'PREP  DATE  CUT 


ELS  E 

STORE  F  TO  U : UICT 
ENDIF 

END  IF  <  AIL  BLA  NKS> 

ENEDO  <U:  DOCT  .AND.  U:UICT> 
RELEASE  U: UICT, U: DOCT 
3)  23,20  SAY  • 

DOCUMENT  NUMBER  END 


OF  RANGE 


STORE  T  TO  U:QTYDEF 
DO  WHILE  U:  QTYDEF 

9  10,35  SAY  '  ’  GET  M :  QTYDEF  PICTURE  '  999999' 

READ 

IF  M: QT YEEF  <  1  .OR.  M:QTYDEF  >  999999 
a  23,20  SAY  '  DEFICIENT  #  OUT  OF  R 

ELS  E 

STORE  F  TO  U:  QTYDEF 
ENDIF 

ENEDO  U :QTYEEF 
RELEASE  U  :  QTYDEF 


RANGE 


RELEASE  U: 
2  23,  25  SA 


(TYDEF 


STORE  T  TO  U:UI 
DO  WHILE  U:  01 

a  11,35  SAY  '  '  GET  M:UI  PICTURE  'AA' 


READ 

IF  $ (M : UI, 1,1) 


A  A. 

a  23,30  SAY  *  NO  BLANK 

ELSE 

STCFE  F  TC  U  :UI 

END  IF 

ENEDO  U  :UI 
a  23,  30  SAY  ' 

RE  TEASE  0:01 


y?: 


:  UI , 2,  1)  =  • 


STORE  T  TO  C:EPRC 
STORE  T  TO  CiUPRC 
DO  WHILE  UtUFRC  .OR.  D:  EFRC 
DO  WHILE  U  :  U  PRC 

a  12,35  SAY  '  'GET  MlUPRC  PICTURE  *999999.99' 
READ 

IF  M :  U  FFC  <  .01  .OR.  M.'UPRC  >  999999.99 
a  23,30  SAY  '  AMOUNT  OUT  OF  RANGE  ' 

E  L  SE 

STCRE  F  T  0  U  :UPRC 
EN  DIW 

ENDDC  U  :  UERC 

a  23,30  SAY  '  • 

STORE  (  M  :UPRC  *  M :  QTYDEF)  TO  M:EPRC 
STORE  T  TC  U:EPEC 


DO  WHILE  U:EPRC 

a  12,50  SAY  'EXT  PRICE  S' 

a  12,61  SAY  MtEPRC  PICTURE  '999999999.99' 
IF  H: EFRC  >=  100000000 

a  23,30  SAY  '  EXTENDED  PRICE  OUT  OF  RANG 
E  IS  E 

STORE  F  TO  U: EPRC 
ENDIF 

ENDDO  <U:EFRC> 

ENDDO  <U :U?RC  S  U:EFRC> 

RELEASE  U: UPRC,U:EP RC 

STORE  T  TO  U  :ORG 
DO  WHILE  U:  CRG 

a  13,35  SAY  '  •  GET  M;  OR  G  PICTURE  '  A  A  X ' 

READ 

IF  $ (M : CFG , 1 , 1  )  ='  '.OR.  $  (M:ORG,2,  1)  =  '  • 

a  23,20  SAY  '  FIRST  2  POSITIONS  MAY  NOT'; 
+•  CONTAIN  BLANKS' 

ELS  E 

STORE  F  TC  U  :ORG 

END  IF 

ENDDO  <U:ORG> 
a  23,  20  SAY  ' 

RELEASE  U:OBG 

IF  H:  COG  ='  SC' 

STORE  T  TO  U: 9  Q 
DO  WHILE  U:9Q 

a  ia,35  SAY  »  '  GET  M:09Q  PICTURE  'X' 
READ 

IF  E:09Q  ='2'  .OR.  M:09Q  ='4'  ; 

.OR.  M : O  9Q  ='5'  .OR.  M:09Q  ='7'; 

-CR.  M : O  9  Q  ='9'  .OR.  M:09Q  ='  ' 

STORE  F  TO  U:9Q 

ELSE 

a  23  ,  30  SAY  •  OUT  OF  RANGE' 

ENDIF 

ENDDO  <U:9Q> 
a  23,30  SAY  ' 

RELEASE  (J:  90 
ENDIF  <K:COG  =  9Q> 

a  15,35  SAY  '  '  GET  M : SC RQTY  PICTURE  '999999' 
READ 


a  16,35  SAY  '  '  GET  M:SC5  PICTURE  'XXX' 

RE  AD 

STORE  T  TO  U : DOC 
DC  WHILE  U  :  CCC 

a  17,35  SAY  '  •  GET  M: DOC  PICTURE  '9' 

READ 

IF  M:  DOC  <  '1'  .OF.  M:  DOC  >  '7' 

a  23,30  SAY  '  1  THROUGH  7  ONLY' 

ELSE 

STORE  F  TO  U:  COC 
END  I? 

ENDDO  <U;  DOC> 

3  23,  30  SAY  ' 

RELEhS  E  U  :  DCC 

a  18,35  SAY  '  '  GET  M :  VLC  PICTURE  'A' 

3  19,35  SAY  •  '  GET  M:CR  PICTURE  'A' 

a  20,  35  SAY  '  '  GET  K:DEF  PICTURE  '99' 
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READ 


STCRE  T  TO  U  : EN D 
DO  WHILE  U  :  END 

STORE  '  '  TO  0  :  REFLY 

3  22,  10  SAY  '  <  CHOOS E>  1-  CONTINUE  2-  CHANGE* 
♦'  3-  EXIT* 

3  23,30  SAY  *  ‘GET  U:REPLY  PICTURE  *9' 

READ 

IF  U : REELY  <>  *1*  .AND.  U : REPLY  <>  '2*  .AND.; 
U: RE  ELY  <>  *3* 

3  23,10  SAY  'ANSWER  WITH  A  1  -  2  -  3  CNLY 

ELSE 

STORE  F  TO  U:END 
END  IF 

ENEDO  <U:ENE> 

3  23,  1 0  SAY  •  ' 

IF  U:  R  E  PLY  =  *2* 

STORE  T  TO  U:  FIRS  IPG 
3  2  2,  1  0  SAY  ' 

3  2  3,  1  0  SAY  * 

ELSE 

IF  U;  REPLY  ='  3  * 

STORE  F  TO  U: FI R ST PG 
STORE  F  TO  U : CONTI 
STORE  F  TO  U.-CONT2 
STORE  F  TO  U : CONT3 
IF  U : FILE  =  *C?EN* 

STORE  ' 1G*  TO  M; TYPE 

ELSE 

STORE  •  3G *  TO  M  :TYPE 
ENDIE 

DO  C  :X  D BHN  CLR 
RELEASE  ALL  EXCEPT  C:* 

RETURN 

ELSE 

STORE  F  TO  U: FIRST  PG 
STORE  T  TO  U : CONT2 
STORE  F  TO  U ; CONTI 
IF  U : FILE  =  'OPEN' 

STORE  '1C  TO  M:  TYPE 

ELSE 

STORE  ' 3C '  TO  M : TY  F  E 
END  IF 

END  IF 
ENCIF 

ENDCO  <U: FI RST  PG> 

ERASE 

RELEASE  U:  END,  U  .-COUNT,  U;  FIRST?  G 

*****  CHOICE  ABOVE  ALLOWS  ANALYST  TO  A3ANDON  OR  TO  FCST 
*****  CHANGES  MADE  THUS  FAR 

ENDDO  <U:C0NT1> 

RELEASE  U.-CCNT1 

IF  U: REPLY  <>  '3' 

a  10,20  SAY  'RECCED  BEING  PARTIALLY  UPDATED* 
a,  13,20  SAY  '  PLEASE  STANDBY  ' 


*****  WRITE  DATA  TO  OPEN  1/C  LOS  El  AND  RELEASE  UNNECESSARY 
*****  VARIABLES  EEFOFE  READING  OPEN 2/CL05E2  FOR  FURTHER 
*****  UPDATE  INFORMATION 


i  •"%  ■  >  "t.  p;1. 


a 


r*.-- 


r« 


DC  C  :XEEHNDLR  .  „  ,tT  . . 

PF'  =.ASE  M :  COG,  A  :  C  AT ,  M :  N  C '  • ..  :■>  „  .'I :  IZ,;'.:  !i" 

:  s  ?  ~c ,  '•! :  c  eg  ,  a :  z oc ,  a  :  30 c:i  ) ,  :-i :  D  at  s s ,  a  :  - 


a :  F S CM  ;  a : UM ;-r:  CF /  a :  sc  . 

Hi  LEAS  F  ;■!:  Go  Q,  a  :  DSF,  a:  V  LC ,  .1  ;  ACT  r  .  ,  Sv.;^v  £  ,  a: 


M  •  ^  M 
/  - 4  •  ~ 


I  F  U  :  F 1 1 S  =  'OPEN' 

STOFE  *  2  E*  T  C  a  .'TYPE 

jfj.SE 

STCFE  ,4E»  TC  M:TYPE 
END  I F 

DC  C : X  C  EHND  L  5 
HNDIF 

DO  WHILE  U  :  CONI  2 

STORE  $  (M:DITSM,  1,7}  TO  U:TY?E 
STORE  $  (M:  EITSM,  8,  6  )  TO  U:SEr.NO 
STORE  3  (X:  DITEM,  14  ,  1  0)  TO  U:HASSY 
STORE  $  (X:  DITSM,  24,  1  2}  TO  U:SASSY 
STORE  *  •  TO  M:OVER 

*****  DISPLAY  FOR  SECOND  SCREEN  OF  UPDATE  PROGRAM 
ERASE 


a) 

a 

a 

3) 

a. 

a 

a 

a 

a 

a 

a 


PICTURE 

3.2  SAY  ’ 
PICTURE 

4.2  SAY  • 
PICTURE 

5.2  SAY  1 
PICTURE 

6. 2  SAY  • 
PICTURE 

7.2  SAY  ' 
PICTURE 

8. 2  SAY  ' 
PICTURE 


a 

8,43 

SAY  V 

•  /*./ 

a 

8.50 

§,2 

SAY  V 

a 

SAY  ' 
PICTURE 

a 

10,2 

SAY  ' 
PICTURE 

a 

1 1 ,2 

SAY  ' 
PICTURE 

a 

12,2 

SAY  ' 
PICTURE 

,  -■ 

a 

13,2 

SAY  ' 
PICTURE 

a 

14,2 

SAY  ' 

a  15,2  SAY  ' 

PICTURE 
a  16,2  SAY  • 

PICTURE 


1  'j  CiV  •  M  1 

l'l6b  SAY  3  (  M:NS  N  ,  1, 4) +•  -' ♦$  (M:NSN  ,5 , 2)  +• -' +3  (M:  NSN,  7,  3)  ; 

*  *  -  '  +  $  ( M :  NS  N,  1  0,4) 

1,55  SAY  'CASE  NUMEER:' 

1,67  SAY  X:  CASE 

2,2  SAY  '  MFC.  PART  NUMBER 

‘  XXXXXXXXXXXXXXXX' 

SEFIAL/LO 1/EATCH 
XXXXXXXXX' 

ITEM  N  OR  0 

A' 

DATE  MFG/REF/O VHL 
9999  9  • 

OPN  TIME  AT  FAILURE 
AX  X  X  X  ' 

GOV  FURNISHED  M AT L 

A' 

QUANTITY:  RECV/INSP/STK 
999  9 89 ' 

GET  X  :  C  T  Y I N  S  PICTURE  '  999999  ' 

GET  M  :  CTYSI K  PICTURE  '999999' 

T Y  Pr/MOD E  L/S  FRIES 
XXXXXXX' 

SERIAL  NUMBER 
XXX  XXX' 

NEXT  HIGHER  ASSY 
XXXXXXXXXX  ’ 

SUE-ASSEMBLY 
XXXXXXXXXXX  X ' 

ESTIMATED  CORRECTION  COST 
999999999.9  9' 

WORK  UNIT  CODS 
XXXXXXX  ' 


A* 


DEFECT  VERIF 
DEFECT  RESP 
STATUS  CODE 


-  N/O/U/Y 

-  C/N/S/U/X 


a  17,2  SAY  1  -  - 

M  :  ST  ATU  S  C  PICTURE  'AA* 
a  18,2  SAY  '  CAUSE  CODE 

M  :C  AUSEC  PICTURE  'A' 

a  19,2  SAY  '  ACT  ION /D I SP  -H/I/D/R/O 
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'  GET 

•  GET 
'  GET 
'  GET 
'  GET 

•  GET 
'GET 

'  GET 
'  GET 
'  GET 
'  GET 
'  GET 
'  GET 
'  GET 
'  GET 
’  GET 
'  GET 
'  GET 


M:  MEG 
M :  LCT 
M :  ITEM; 
K:  OVER; 
M:  OIF 
M:GCV 
M: QTYRZC; 


U  :  T  YF  E  ; 
U  :  SERNO  ; 
U:  HASSY; 
U  :  S  AS  SY  ; 
M :  CCOST  ; 
M :  W  UC  ; 
M: DEFV; 

M  :  0  EF  R  ; 


K-: . 

v.‘. 

>  % 


,*V 


_  ' «  _  * »  -*■  -‘V  A  A  -  ■ 


M  :  ACTDI SP  PICTURE  ' X  ' 

d  20,2  SAY  •  if  A  FHANTY  '  GET  a :  HU  TY  PICTURE  *  A  * 

■7.  20,19  c  A  Y  »cr»S?  CODE  '  GET  M:COSTC  PICTURE  'A' 

2  20,30  SAY  '  ACTION  CODE'  GET  M : ACTTKN  PICTURE  »  AAA  • 

T?.  0  1  ^  q  5 v  i  :s  t?  *r  n  ^  m  m  r^r?  i  ri  tt t>  m 

M  •  f  4  ->  il  i.  .. .  — »  X  O  i.  ,*  ...  C/  L/  -L.  1  . 

PICTURE  »  9* 

CLEAR  GETS 

2  22,10  SAY  '  ENTER  Ci>  TO  SKIP  ' 

2  23, 3C  SAY  '  '  GET  U : REPIY 

READ 

IF  !  fU  :REPLYJ  =  *N' 

STORE  F  TO  U : P AGE2 
STCRE  F  TO  U  :  CO  NT  2 
STORE  T  TO  U:CONT3 

ELSE 

STORE  T  TO  0  : P  A G E 2 
ENDIF 

2  22,10  SAY  1 
2  23,10  SAY  ' 

CO  WHILE  U: PAG E 2 


*****  INPUT  MANUFACTURERS  PART  NUMBER 

2  2,  35  SAY  '  '  GET  M :  MFr  PICTURE  * XXXXXXXXXXXXXXXXX X* 
2  3,35  SAY  '  '  GET  M:  LOT  PICTURE  'XXXXXXXXX' 

STCRE  T  TO  U  : IT  EM 
DO  WHILE  U:ITEM 

2  4,3  5  SAY  '  *  GET  M : IT  EM  PICTURE  'A' 

READ 

IF  M: ITEM  =  • N  *  .OR.  M : ITEM  =  'O'  ; 

.OR.  M: ITEM  =  '  ' 

STCRE  F  TO  U: ITEM 

t?ls  E 

2  23,30  SAY  '  USE  N  OR  0  ' 

END  IF 

ENDDO  <U : I TEM> 

2  23.  30  SAY  ' 

RELEASE  U  :  ITEM 
IF  M:  ITEM  <>  '  ' 


*****  THE  NEXT  FIVE  LINES  CALCULATE  EARLIEST  YEAR  TO  ALLOW 
*****  f0p  OVERHAUL  ENTRY 

STORE  $  (C:  JULIAN,  1  ,  21  TO  TEMPI 
STCRE  V A L  (TEMPI)  TC  TEMPU 
STORE  V AL ( '  10' )  TO  LOW 
STCRE  TEMPI  i-LOW  TO  TEMP2 
STORE  SIR  7  TEMP  2 ,2)  TC  UiTSNYRS 
RELEASE  TEMPI,  TEMP  1  A,  TEMP2  ,  LOW 

STCRE  T  TO  U:OVER 
DC  WHILE  U  :  CVER 

2  5,35  5 AY  '  '  GET  MrOVSR  PICTURE  '99999' 

READ 

IF  i ( M  :  CVER, 3,  3)  >  '36  5'  ; 

•  OR.  I  (M:OV  ER,  1,2)  <  UiTENYRS  ; 

.OR.  $ (M :0V  EK ,  1,2}  >  U:ULIMIT 

2  23,30  SAY  'DATE  OUT  OF  RANGE' 

ELS  E 

STORE  F  TC  U : 0 V  SR 

ENDIF 

ENDDO  <U:OVEF> 

ENDIF 

RELEASE  U  :  OVER,  U:  T  ENYRS 
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UNCLASSIFIED 


F/G  9/2 


NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUR1AU  0*  STANDARDS- 196 i  A 


STCR2  T  TO  U  :OTF 
DO  WHXL  E  0  *  Cl? 

3  6,35  SAY  '  •  GET  M:  OTF  PICTURE  *A99?9' 

READ 

IF  M:OTF  =  '  ' 

STORE  F  TO  U.-OTF 

ELS  v 

“if  $<M:OTF,1,1)  =  '  N  * « 0  R .  $  ( M : OT  F ,  1 ,  1)  =  'C*; 
.AND.  $(M:OTF.2f4)  >  '0000' 

STORE  F  TO  U:OTF 


ELSE 


3  2  3.30  SAY  •  USE  N  OR  0  AND  THEN 
TINE  ( A 9 9 9 9 )  ' 


ENDIF 

ENDIF 

ENDDO  <U:OTF> 

3  23.30  SAY  '  ' 

RELEASE  U :  OTE 

STORE  T  TO  C:GOV 
DC  WHILE  U:GCV 

3  7,35  SAY  •  '  GET  M:GOV  PICTURE  'A' 

READ 

IF  M:GOV  *  '  •  .OR.  M:GOV  =  'Y'.OR.  M:GOV  ='N' 
STORE  F  TO  U :GOV 

ELS 17 

“a  23,30  SAY  'USE  EITHER  Y  OR  N' 

ENDIF 

ENDDO  <U:GOV> 

a  23.  30  SAY  '  ' 

RELEASE  UsGCV 

STORE  T  TO  U:QTYRECT 
DO  WHILE  UlClYRECT 

3  8,35  SAY  '  '  GET  H:QTYSSC  PICTURE  *999999' 

READ 

IF  HiQTYREC  <  0  .OR.  M :  QTYREC  >  999999 
a  23,30  SAY  'OUT  OF  RANGE' 

ELSE 

STORE  F  TO  U: QTYRECT 
ENDIF 
ENDDO 

a  23.30  SAY  ’  ' 

RELEASE  U  :  QTYRECT 
STORE^T^TO  UljTYINS 

DC  WHILE  U.CTY^  S  GET  H;  qTYINS  PICTURE  *999999' 
READ 

IF  M: QTYINS  <  0  .OR.  M : QTYINS  >  999999 
a  23,30  SAY  •  OUT  OF  RANGE* 

ELSE 

STOEE  F  TO  U : QTY IN S 
ENDIF 

ENDDO  <U:QTYINS> 

a  23.  30  SAY  '  ' 

RELEASE  U :  QTYINS 


STORE  T  TO  UlQTYSTK 

DC  WHILE  U  jjCiA|TK, /f  GET  M;qTYSTK  PICTURE  *999999' 
READ 

IF  M: QTYSTK  <  0  .OR.  HlQTYSTK  >  999999 
3  23,30  SAY  'IN  STOCK  #  OUT  OF  RANGE' 

ELS  E 

STOEE  F  TO  U : QTYSTK 
ENDIF 


V 


ENDDO  U  :<QTYSTK> 
2  23,  30  SAY  1 
RELEASE  U : QT YSTK 


2  9,35  SAY  •  •  GET  U:IYPE  PICTURE  'XXXXXXX' 

2  10,35  SAY  •  •  GET  UiSERNO  PICTURE  'XXXXXX* 

2  11,35  SAY  *  '  GET  UrHASSY  PICTURE  'XXXXXXXXXX' 

3  12,35  SAY  •  •  GET  U:SASSY  PICTURE  '  XXXXXXXXXXXX' 

READ 

STCRE  U  :TYP£+U:SERN04U;  HASSY  +  U :  SASSY  TO  MiDITEM 

2  13,35  SAY  •  •  GET  M:CCOST  PICTURE  '999999999.99' 
READ 

3  14,35  SAY  •  '  GET  M:WUC  PICTURE  'XXXXXXX* 

READ 

2  15,35  SAY  '  •  GET  M : DEFV  PICTURE  'A' 

STORE  T  TO  0:DEFV 
DO  WHILE  U:EEFV 

3  15,35  SAY  •  •  GET  M:  DEFV  PICTURE  'A' 

READ 

IF  MiDEFV  =  ' N '  .OR.  MtDEFV  =  'O'  : 

.OR.  M:DEFV  =  *U'  .OR.  M : DEFV=  ' Y'  ; 

.OR.  M:  DEFV  =  •  • 

STORE  F  TO  U:DEFV 

ELSE 

3  23,30  SAY  »  CORRECT  CODE  MUST  BE  ENTERED' 
END  IF 

ENDDO  <U:DEFV> 

2  23.  30  SAY  •  • 

RELEASE  U  :  DEFV 

STCRE  T  TO  UlDEFR 
DO  WHILE  U : EEFR 

a  16,35  SAY  *  '  GET  M: DEFR  PICTURE  'A' 

READ 

IF  M: DEFR  =  'C •  .OR.  M : DEFR  =  'N'  ; 

.OR.  M.-DEFR  =  'S'  .OR.  M :  DEFR  =  'U*  ; 

.OR.  M:DEFR  =  'X'  .OR.  M : DEFR  =  •  • 

STORE  F  TO  UiBEFR 

ELSE 

3  23,30  SAY  'CORRECT  CODE  MUST  BE  ENTERED' 
END  IF 

ENDDO  <U:DEFR> 
a  23,  30  SAY  ' 

RELEASE  UJDEFR 

3  17,35  SAY  •  '  GET  M:STATUSC  PICTURE  •  A  A ' 

READ 

3  18,35  SAY  '  '  GET  MlCAUSEC  PICTURE  «A* 

READ 

3  19,35  SAY  '  '  GET  M;ACTDISP  PICTURE  »X' 

READ 


STORE  T  TO  U : WNTY 
DC  WHILE  U  :  WNTY 

a  20,2  SAY  •  WARRANTY  'GET  M:  WNTY 

READ 

IF  M:  WNTY  »  » Y '  .OR.  M:WNTY  ='N'  ; 

OR.  B:WNTY  »  'U' 

STORE  F  TO  U : WNTY 


•  A  * 


•  VV  «".** 


TT^Tr r 


ELSE 

END  IF 
ENDDO 
3  23,  30  SAY  » 


3  23,30  SAY  *  Y ,  0  OR  N  ONLY 1 


RELEASE  U;  W NIY 

£  20,19  SAY  'COST  CODE  *  GET  KsCOSTC  PICTURE  *  A' 

3  20,30  SAY  'ACTION  CODE'GET  M:  ACTTKN  PICTUFE  'AAA' 
a  21,35  SAY  '  '  GET  M:RE1C  PICTURE  *9’ 

READ 

SICES  T  TO  13: END 

DO  WHILE  U  :  END 

STORE  •  '  TO  U: REPLY 

a  22,10  SAY  »  <CHOOSE>  1-  CONTINUE  2-  CHANGE’ 
a  23,35  SAY  '  •  GET  U : REPLY  PICTURE  »9» 

READ 

IF  U  :REPIY  <>  '  1*  .AND.  UiREPLY  <>  '2* 

a  23, C5  SAY  'ANSWER  WITH  A  1  OR  2  ONLY  ' 

ELS  E 

STORE  F  TO  U:  END 
ENDIF 

ENDCO  <U:END> 

2  23,05  SAY  •  ' 

IF  U:  REPLY  *  '2' 

STORE  T  TO  U :  P  AGE2 

a  22,10  SAY  »  ’ 

a  2  3,10  SAY  •  ' 

ELSE 

STORE  F  TO  D:CCNT2 

STORE  T  TO  U: CONT3 

STORE  F  TC  U:PAGE2 

ENDIF 

ENDCO  <0: PAGE2  > 

ERASE 

RELEASE  U:TYPE,  UiSEBNO,  U:SASSY,  U:  HASSY,0:  END,U:  PAGE2 
ENDDO  <U:CONT2> 


*****  START  OF  THE  THIRD  SCREEN  FOR  THE  UPDATE  PROGRAM 
ERASE 

DO  WHILE  U :CONT 3 


*****  DISPLAY  OF  CASE  DATA  FROM  OPEN2  DETAILS  &  REPLY 


a 

a 


1  2>  SAT  *  NSN*  * 

1  J 17  SAY  $iS:NSN.^.41  ♦  •  -  •  (M : NSN, 5 . 2) ’  ; 

♦  I  (a:NSN,7  .3)  -»  +  ${M:  NSN,  10,4) 

1,55  SAY  'CASE  NUMBER:  » 


a 
a 
a 

a  . 

a  8,10  SAY  '  '  GET  M: D ETAILS 
a  13,2  SAX  'REPIY  FROM  ITEM  MANAGER' 
3  14.10  SAY  •  •  GET  M: R  EPLY 
CLEAR  GETS 


1,68  SAY  M: C A SF 

5,2  SAY  'DETAILS  OF  DISCREPANCY  -  FIRST  2  LETTERS’ 
6,10  SAY  '  _  MUST  BE  WHERE  DISCOVERED  CODE' 


STORE  *  '  TO  U  * SEFli Y 

3  22,  10  SAY  •  *  ENTER  <N>  TO  SKIP  6  UPDATE  RECORD* 

a  23,30  SAY  '  'GET  U: REPLY 
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x*\  1  v  *;■ 


rrs 7  -*  ry  ar-T 


READ 

IF  !  (U:  REPLY)  =  '  N  ' 

STORE  F  TO  U:P  AGE3 
STOSS  F  10  U:CCNT3 

ELSE 

STORE  T  10  U:  P  AGE3 
ENDIF 

3  22,  1 0  SAY  • 

♦  * 


■ 

_  V% 

IS 


cX 

£ 


*****  SKIP  THIRD  PAGE  OF  UPDATE  IF  REPLY  WAS  <N> 

DC  WHILE  U  :  P AG  £ 3 

STOSE  T  TO  0  :  CIS  COD  E 
CO  WHILE  U :  D ISCODE 

a  8.10  SAY  *  *  GET  M : DETAILS 
READ 

STORE  $  (HiDETAILS.I  ,2)  TO  HlDIS 
OSE  D:  WHEBEDIS  INDEX  DlDISCODE 
FIND  &H :  CIS 
IF  #  *  C 

a  23,30  SAY  ’WHERE  DISCOVERED  CODE  INCORRECT 
ELSE 

STORE  F  TO  U :  CISCODE 

ENDIF 

ENDCO  <0  :DISCCDE> 

2  23,30  SAY  ' 

RELEASE  0:  DISCODE 

2  14,10  SAY  '  •  GET  H:  REPLY 
READ 

STORE  T  TO  U:END 
CO  WHILE-  U:ENE 

STORE  •  •  10  OlREPLY 

221,10  SAY  •  *******  CHECK  PREVIOUS'; 

♦ '  ENTRIES  *******  • 

2  22,  10  SAY  '  <CHOOSE>  1-  CONTINUE 

♦'  2-  CHANGE  ' 

2  23,35  SAY  '  '  GET  U: REPLY 
READ 

IF  0: REPLY  <>  '1'  .AND.  U: REPLY  <>  '2* 

a  23,10  SAY  •  ANSWER  WITH  A  1  OR  2  ONLY’ 

ELS  E 

STORE  f  TO  0 :ENC 
ENDIF 

ENDDC  <U:END> 

2  23,  10  SAY  '  • 

IF  U: RE  ELY  *  '2* 

STORE  T  TO  U;  P  AGE3 
a  2  2,10  SAY  ' 

3  23,10  SAY  ' 

ELSE 

STORE  F  TO  U:  P  AGE3 
STORE  F  TO  U:CONT3 
ENDIF 

ENDCO  <U: PAGE3  > 

RELEASE  U: PAGE3  ,U:COUN T 
ERASE 


ENDDO  <0 :CONT3> 

IF  0; REPLY  <>  '3» 

a  10.20  SAY  ’YOUR  CASE  IS  BEING  UPDATED 
3  1*2,20  SAY  '  PLEASE  STANDBY 

ENDIF 

IF  UiREPLY  <>  '3' 

IF  (J:  FILE  *  'OPEN' 

STORE  *  2C'  TO  HrTYPE 


NOW' 


* 
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*  .  •  -  ■ 


STOEE  '4C'  TO  M :TYP  E 
ESDI? 

DC  C:  X  DBHNDIE 
ENDIF 

RELEASE  U:CONT3,U:EEPLY,  0 :  END 
RELEASE  ALL  EXCEPT  C:* 

STORE  T  TO  OrOPDATE 
ENDDO  <U:UPDATE> 

BETUBN 

*****  END  CF  PROGRAM 


'is'*/ 


VI.  CASS  CLOSING  MODULE 


***************************  ******************************** 
**  ** 
**  Date:  18  December  1984  ** 

**  Version:  1.0  ** 

**  Module  Name:  CLOSPEC  ** 

**  Module  Purpose:  Close  Current  Case  ** 

**  Module  Interface  Definition  ** 

**  Inputs:  C:WHO,  C: JULIAN  ** 

**  Outputs:  None  ** 

**  Module  Processing  Narrative  Description:  ** 

**  ** 

**  Prompts  the  Analyst  for  the  desired  closing  date  ** 

**  to  assign  to  the  case  and  then  for  the  case  ** 

**  numter.  The  database  is  searched  and  ** 

**  reads  current  values.  Insures  that  there  are  ** 

**  transmittal  and  return  dates  assigned.  If  net  ** 

**  then  the  case  must  be  undated  before  closing.  ** 

**  If  dates  are  present,  the  credit  code  and  vendor  ** 

**  liability  codes  must  be  entered  in  response  to  ** 

**  the  prompts.  The  case  is  then  written  to  the  ** 

**  CLOSE1  and  CLCSE2  Databases  and  is  marked  for  ** 

**  deletion  in  the  OPEN1  and  OPEN2 .  ** 

**  ** 
**  Superordinate  Modules:  MENU1  ** 

**  Subordinate  Modules:  XDBHNDLR  ** 

**  Author:  J.G.  BOYNTON  ** 

**  ** 
***************************  ******************************** 
ERASE 

STORE  T  TO  CL: CLOSE 
DO  WHILE  CL :CLOS  E 
TEXT 

*****  CLOSE  CASE  ***** 


ENDTEXT 


This  program  anables  you  to 


CLOSE  A  QDR  CASE 


1  -  Continue 

2  -  Return  to  Menu 


STORE  '  '  TO  CL : EEPLY 
9  20,38  SAY  '  *  GET  CL: REPLY 
READ 

DO  WHILE  CL: REPLY  <>  '  1  «  .AND.  CL : REPLY  <>  '2* 

3  23,20  SAY  •  ANSWER  WITH  A  1  OR  2  ONLY' 

a  20,38  SAY  •  •  GET  CL: REPLY 

READ 

ENDDC  <CL: RE PLY> 

ERASE 

IF  CL: REPLY  =  •  2 ' 

RELEASE  ALL  EXCEPT  C:* 


F.  STORM 

ENDIF 

STORE  *  •  TC  LC:CL  DATE 

STORE  •  •  TC  K:CASE 

STORE  '  •  TO  CL:VIC 
STORE  '  '  TO  CL:CS 

3  10,25  SAY  ******  CLOSE  CASE  ****** 
STORE  T  TO  C I :  D  AT  ET 
EO  WHILE  CL  :  E  ATET 


3  14,26  SAY  'CLOSING  DATE 
GET  LCrCLDATE 

READ 

IF  LCJCLEATE  =  *  • 

RELEASE  ALL  EXCEPT  C:* 
RETOHN 

ENDIF 


MMDDYY 


STORE  S  (LC:CLDATEf  5,2)  TO  CL:TEMP1 
STORE  VAL  <CL:TEMP1) -1  TO  CL  :  LOWDATE 


STORE  STB  (CL :  LO  WDATE  ,  2)  TO  CL:LDATE 


IF  $  (LCtCLDATE.  1.2)  <*01'; 
.OR.  $  (LCiCLEATE,  1,2)  > 


.  OR. 
OR 


>  • 12'  ; 


[LC:CL DATE, 3,2  < • 0 1 • 

$  (LC:CL  DATE,  3,2  >  '31' 

#  <r  mr:  r  ^ 


.  OR.  f  (LC:CLDATE',  5',2j  >$(C:  JOilAN,  1,2) 
S  23,30  SAY  •  DATE  OOT  OF  RANGE' 


ELSE 

STORE  F  TO  CL:  DATET 
ENDIF 

ENDEO  <CL:  D  AIET> 

3  23,30  SAY  •  • 

RELEASE  CL : D  ATET,CL :  LDATE ,CL: LOVDATE,  CL:  TEMPI 


STOBE  T  TO  CLlMCFE 
CO  WHILE  CLlMORE 


a  10,25  SAY  *  *****  CLOSE  CASE  ***** 
a  14,26  SAY  'CLOSING  DATE  MMDDYY  •; 
LC:CLDATE 


GET 
CLEAR  GETS 


STORE  T  TO  CUREPLY 
EO  WHILE  CL : REPLY 

a  15,26  SAY  'CASE  NUMBER  '; 

GET  M:C  ASE  PICTURE  '999999X.' 

READ 

USE  D:  OPEN1  INDEX  D:OCASE1 
FIND  6M:CASE 
IF  #  ■  0 

STORE  '  '  TO  CL :  AGAIN 

a  20,22  SAY  *  That  Case  Not  In  Open  File 
a  22,18  SAY  '  1 -To  Try  Again  2-To  Return' 
♦'  To  Menu' 

8  23,33  SAY  '  •  GET  CL:AGAIN 
RE  A  E 

IF  Cl:  AGAIN  <>  '  1* 

RELEASE  ALL  EXCEPT  C:* 

RETURN 

ENDIF 


ELSE 


IF  .NOT.  * 

STORE  F  TO  CL: REPLY 


STORE  T  TO  CLlFILLED 

ENDIF 
IF  * 

r  wri  f  f  T'A"*  ^  T  «  A  1  T  'T 

ill/  tiiU  x  v>  *—  iJ  •  o  a X  4i 

a  20,  2  2  SAT  *  That  CAS  a 

♦  »  CLOSED' 

3  22,2  2  S  AY  '  1-To  Try  Again 
+  ' Return  To  i-lenu' 

2  23,33  SAT  '  '  GET  CL:AGAIM 

READ 

IF  CL:  AGAINO*  1*  „  * 

RELEASE  ALL  EXCEPT  C:* 
RETURN 

ENDIF 

ENDIF 


a.  X  r  e  a  u  \ 


ENDIF 

ENEDO  <CL : R EELY> 

3  20,  22  SAY  • 

a  22,  18  SAY  • 

♦  • 

3  23,33  SAY  • 

+ « 

*****  GO  TO  THE  OPEN  CASE  FILE 
*****  ane  CREDIT  code 

STORE  M:CASE  TO  M:  KEY 
STCRE  •  IE'  TC  M:TY  PE 
DO  C: X  DBHND IE 


AND  READ  THE  CURRENT  VLC 


STCRE  $  fM:  DATES,  1,  5) 
STCRE  $  tM:  DATES, 6.  5V 
STCRE  $  ?M:DATES, 1 ,5] 
STCRE  I  (M  :  D  AIES  ,  1 6  , 5 
STCRE  $  (M: DATES, 21  ,5 
STCRE  $  i  M:  DATES, 26 ,5 
STORE  I i a : DATES, 31 ,5 
STCRE  f iM: DATES, 36 ,5 
STORE  $  (M:  DATES, 41  ,5 


TO  MlDDATE 
TO  H: RD AT  E 
TO  M:OPEN 
TO  MJLDATE 
TO  M : SCRD ATE 
TO  M  :  IRDATE 
TO  M : RIMD  AT 
TO  SlCLOSE 
TO  M: REOPEN 


tp  BDATP  =  (  *.OB.  M:OPEN= '  '  .OR.  1 

IF  M.  RD  AT  E  jj  ;LDAT£-i  ®  ,5r.  M:RIHDAT.=  ' 

a  20,20  SAY  'Key  Date/Dates  Are  Missing.’ 

♦  '  CASE  may  NOT'  .  ,  .  a  _  , 

a  21,20  SAY  'Be  Closed  Until  Update  Is  '; 
♦'Accomplished' 

a  23,20  SAY  '  Press  Any  Key  To  Continue' 
WAIT 
E  HAS  E 

a  10,25  SAY  '****♦  Please  Standby  ****♦' 


ENDIF 


STORE  ' 1 G '  TO  MlTYPE 
DO  C: XCBHNDLR 
STORE  F  TO  CLlFILLED 


*****  if  THE  CASE  IS  COMPLETE  AND  READY  TO  BE  CLOSED 

IF  CLlFILLED 

STORE  T  TO  CLSVLCT 
DO  WHILE  CL: VLCT 

3  16,26  SAY  'VENDOR  LIABILITY  CODE  '; 
GET  CL:  VLC  PICTURE  '  A» 

READ 

IF  CL: VLC  *  •  ' 
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3  23,30  SAY  'VENDOR  CODE  MAY  NOT  ' 
+  •  BE  BLANK' 

jiLSESTOHE  F  IC  CL:  VLCT 
ENDIF 

ENDDO  <CL:VLCT> 

3  23,30  SAY  ' 

♦  •  ' 

RELEASE  CL:VLCT 

STORE  T  TO  CL:  CRT 

DO  WHILE  CLJCRT  , 

3  U,26  SAY  'CREDIT  CODE 
GET  CL: CR 

READ  .  . 

r  s>  r  t  •  CR  =  '  • 

3*23,30  SAY  '  CREDIT  CODE  MAY  NCT 
♦'BE  BLANK' 

ELSE 

STORE  F  TO  CL: CRT 
ENDIF 

,D DO  <CI.*CRT> 

23,30  SAY  ' 

+  •  • 

RELEASE  CL : CRT 

STORE  '  '  TO  CL:RIPLY 

3  20,22  SAY  '1  -  CLOSE  CASE  2  -  CHANGE  1 
*  ♦»  3  -  EXIT' 

a  22,40  GET  CL  :  REPLY 
READ 

IF  CL: REPLY  =  '3' 

RELEASE  ALL  EXCEPT  C:* 

EETUEN 

ENDIF 

IF  CL: REPLY  *  ' 1 ' 

ERA  CE 

a  12,30  SAY  'CASE  NUMBER' 

a  12,44  SAY  M:  CAS E 

3  14^31  SAY  'IS  BEING  CLOSED' 

a  16,30  SAY  »  PLEASE  STANDBY' 

*****  TRANSLATE  LC:CIEATE  FROM  MHDDYY  TO  JULIAN  FORM 


STCEE  VAL  (|(LC:CLDATE,  1, 2|| 
STORE  VAL  if  1 LC : CLDATE , 3 , 2j  j 
“STCEE  VALJ*  (LC:CLDATE,5,2)  ) 
DO  C : O JUL I AN 

STCEE  V: J  OLD  AT  E  TO  M:CLOSE 
RELEASE  ALL  LIKE  ?:* 

STCEE  M :C  AS E  TO  M :KEY 


TO  V:MM 
TO  V:DE 
TO  V:YY 


*****  put  CLOSING  DATE  INTO  PROPER  FORMAT  FOR  STORAGE 

STCEE  $  (M  :DATES,4  1.5)  TO  M :  REOPEN 
STORE  $(M  :DATES,1  , 5 5)  +  M: CLOSE  ♦; 

M:  REOPEN  fo  CL:  DATES 
STCRE  CL: DATES  TO  M : DATES 
STCEE  CL: VLC  TO  M:VLC 
STCEE  CL: CR  TO  M:CR 
STORE  '1C  TO  M:TYPE  4 
STCEE  M:REC1  TO  T:REC1 

DO  C: XDBH  NDLR 

*****  CREATE  RECORD  IN  CLOSE1 

STORE  ' 3F '  TO  MiTYPE 
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DO  ClXDBHNDLB 

STCFE  M :  C  A  S  £  TO  TlCASE 

RELEASE  ALL  LIKE  M :  * 

STCFE  T: C  ASE  TO  M:CASE 
USE  D :  OPS  N 1  INDEX  D.'OCASSI, 
GOTC  T : RE C 1 
DEL  ZT  E 

STCF.E  *23'  TO  M:TYPE 

STCFE  T : C  AS  E  TO  M  :  KEY 
DO  C: XDBH  NDLR 

STCFE  #  TC  TJREC2 
STCFE  *4F 1  TO  M :  T  Y  P  E 

DO  C:XCBti  NDLB 


STCFE  MlCASE  TO  T:CASE 
RELEASE  ALL  LIKE  M:* 

STORE  TlCASE  TO  M:CASE 
USE  D : OPE  N2  INDEX  D:OCASE2 
GOTC  T:REC2 
DELETE 


STORE  F  TO  CL : ENTER 
ERASE 
END  IF 

a>  20,22  SAY  « 

+  «  • 

5>  22,22  SAY  • 

+  •  i 


ERASE 

ENDIF  <CL:FIL1ED> 
ENDDC  <CL: MO  FE> 
RELEASE  ALL  LIKE  CL:* 
RELEASE  ALL  LIKE  M:  * 
RELEASE  ALL  LIKE  1:* 
STORE  T  TO  CL:CLCSE 
•NDDO  <CL:CLOSE> 


:0  NSN 


*****  ENC  OF  PROGRAM 


7 II.  DATA  BASE  HANDLER  MODULE 


$*************************************************934*?**** 
**  ** 
**  DATE:  29  NOV  1983  ** 


BASE 


DATE:  29  NOV  1983  ** 

VERSION:  1.0  ** 

MODULE  NAME:  XDBHNDLB  ** 

MODULE  FURPOSE:  TC  PROVIDE  ACCESS  TO  THE  DATA  BASE  ** 

RECORDS  FOR  READ  AND  UPDATE  ** 

** 

MODUIE  INTERFACE  DEFINITION  ** 

** 

INPUTS:  M  :C  A  SI,  M:COG,  M:NSN,  M:  CAT ,  M:  NO  MEN,  ** 

M :UIC ,  M:UI,  M:QTYDEF,  M:UPRC,  M:EPRC,  ** 
M  :ORG ,  M: DOC ,  M:DOCNO,  M : DATES ,  M:RE?CON,  ** 
M:FSCfl,  M  :TI  ME,  M:WHO,  M :  N  U  M ,  M:CR,  M:SCP,** 
M:SM.  M: 09Q,  M  :  DEF ,  M:VLC,  M : ACTPT ,  ** 

M:SCRCTX,  M :  R  E  C  1 ,  M:  QT YI NS ,  M:  QTYREC,  ** 

M  :QTYSTK,  M: DEFV,  M: DEFR,  M : IT  EM ,  M:0VER,  ** 
M :0TF  ,  M : GO V  ,  M:DIIEM,  MiCCOST,  M:WNTY,  ** 
M:WUC,  M:DIS,  M:DETAILS,  M: REPLY,  ** 

M : ACT1KN,  M:COSTC,  M:STATUSC,  M:CAUSEC,  ** 
M  :RETC,  M :  AC TDISP ,  M  :  M FG ,  M  :  LOT,  M  :  T  Y  ?  E  ** 

OUTPUTS:  M:  CASE,  M:COG.  M : NSN,  M  :  CAT,  M:  NOMEN ,  ** 

M:  UIO,  M:UI,  M : QTYDEF ,  M:UFRC,  M:EPEC,  ** 
M:  ORG,  M : DO  C,  M:DOCNO.  M: DATES,  ** 

M: RE  EcON ,  M:FSCM,  M : T I M  E  ,  M:WHO,  M: NUM,  ** 
M:CR,  M:SCR,  M:SM,  M:09Q.  M :DEF,  M:VLC,  ** 
M:  ACTPT,  M :  SCRQTY ,  M:3SC1.  M:QTYINS,  ** 

M: QTYREC.  M : QTYSTK,  M : D  EFv ,  M:DEFR.  ** 

M:  ITEM,  M:  0  VER  ,  M  :OTF ,  M:GOV,  M:  DITEM,  ** 
M:  CCCST,  M:  WNTY.  M:WUC.  M:DIS,  M : DETAILS, ** 
M:  RE  PLY ,  M:ACTTKN,  M:COSTC,  M:STATUSC,  ** 
M:  C  AG  SEC  ,  M  :RETC,  M:ACTDISP,  M :  MFG  ,  ** 

M:  LOT  ,  M  :TY  PE  ** 

** 

** 

MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

ACCEPTS  THE  TRANSACTION  TYPE  CODE  AND  ACCESSES  ** 


OUTPUTS 


** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 


ntat/i  uLau/i.i.v.n,  n  n  j.  X  sjf  u  u  U'J  t\ ,  untuCK)  .  ini  ‘■~’- 

**  OPERATION  PERFORMED  DEPENDS  ON  THE  TYPE  CODE  ** 

**  RECEIVED.  THE  MODULE  WILL  RETURN  A  TYPE  CODE  ** 

**  TC  INDICATE  THE  SUCCESS  OR  FAILURE  OF  THE  ** 

**  OPERATION.  ** 

**  ** 

**  SUPERORDINATE  MODULES:  XOPEN2 ,  XUPDAT,  CLOSREC  ** 

**  SUBORDINATE  MODULES:  NONE  ** 

**  AUTHOR:  R.  G.  NICHOLS  ** 

**  ** 

***♦ *******  ***  *******************************************  ** 


*****  THE  GENERAL  OPERATION  OF  THE  DATA  BASE  HANDLER 
*****  IS  BASED  ON  A  CASS  CONSTRUCT 

*****  M :TY  PE  IS  THE  SELECTION  KEY  THAT  DETERMINES  THE 
*****  TRANSACTION  TC  PERFORM  -  THE  FIRST  DIGIT  REPRESENTS 
*****  XEE  FILE  THAT  IS  TO  BE  USED  AND  THE  SECOND  DIGIT 
*****  REPRESENTS  THE  TYPE  OF  ACTIVITY  (I.E.  READ  ACCESS 
*****  WITH  NS N  KEY,  READ  ACCESS  WITH  CASE  KEY,  READ/LCCK 
*****  WRITE  NEW  RECORD,  WRITE  UPDATE  UNLCOK,  RECORD  UNLOCK 


*****  ETC.) 

DO  CASE 

*****  USE  CPEN1  DATA  BASE  FILE 

CASE  i<£:IY  £2,1(1)  *  1  1 1 

IE  S  (M:?YPE,  2,  1)  =  'A*  .C3.  3  (a  :T  YPE  ,  2 , 1)  =  •  =  ' 

*****  IF  *  A  •  THEN  ACCESS  BY  MSN 
IF  $  { M  *  TY  P  E  2  1)  —  *  A  ' 

STORE  '  U§E#  D:OP  EN 1  INDEX  D:ONSN*  CO  HiUSZFILZ 
ELSE 

*****  n  iB.  x H ZN  ACCESS  BY  CASE 

STORE  'USE  D  :OP  £N  1  INDEX  D:OCASE1‘  TO  H:U5ZFILE 
EN  DIF 

*****  USE  INDIRECT  FILE  IDENTIFICATION  TO  SELECT  USE  FILE 

SH :  US  EFILE 
FIND  SM:KEY 

*****  SEARCH  FOR  DESIRED  RECORD.  IF  FOUND  RETURN  DA 

*****  ELEMENTS  AND  SET  M:T  YPE  TO  0  OTHERWISE  SET  M : T 

*****  xC  9 

IF  #  =  0 

STORE  '9’  TO  M:  T  YPE 
RELEASE  AIL  LIKE  Hs* 

RETURN 
ELSE 

STORE  #  TC  M :  REC  1 
STORE  CASE  TO  M :  CASE 
STORE  COG  TO  MtCCG 
STORE  NS  N  TO  S:NSN 
STORE  CAT  TO  M:  C  AT 
STORE  NOMEN  TO  M  :  NOMEN 
STORE  UIC  TO  M:UIC 
STORE  UI  TC  M :UI 
STORE  QTYDEF  TO  M: QTYDEF 
STORE  UPRC  TO  M: UPRC 
STORE  EPRC  TO  M: EPRC 
STORE  ORG  TC  M : 0  RG 
STORE  DOC  TO  M:  DOC 
STORE  DOC  NC  TO  M:DOCNO 
STORE  DATES  TO  M  :DAT£S 
STORE  REPCCN  TO  M:REPCON 
STORE  F  SC M  TO  M:  FSCM 
STORE  TIME  TO  M: TIME 
STORE  WHO  TO  M:WHO 
STORE  NUM  TO  M :  N  UM 
STORE  CR  TC  M:CR 
STORE  SCR  TO  M:SCR 
STORE  SM  TC  M:SM 
STORE  09 Q  TC  M:09Q 
STORE  DEF  TO  M:  D  EF 
STORE  VLC  TO  M:VLC 
STORE  ACTET  TO  M:ACIPT 
STORE  SCRQTY  TO  B :  SCEQTY 
STORE  'O'  TO  M:  T  YPE 
RELEASE  ALL  LIKE  H:* 

RETURN 
ENDIF 
ELSE 

IF  $(M:TY?E,  2,1)  =  '  Hf  .OR.  $  (M :  TYPE,  2,  1 )  =  'I' 
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*****  READ  RECORD  SPECIFIER  BY  M:REC1  (RECORD  NUMBER) 

*****  IE  RECORD  NOT  FOUND  5ETUDVJ  MrTYPE  =  9  OTHER  N IS i? 

*****  RETURN  THE  RECCED  ELEMENTS 

USE  DsOPENI  INDEX  C:ONSN 
GOTO  8: REC1 
IF  #  <>  K:REC1 

STORE  '9'  TO  M:TYPE 
RELEASE  ALL  LIKE  H:  * 

RETURN 

ELSE 

*****  if  M:TYPE  =  I  THEN  SKIP  TO  NEXT  RECORD  AND  READ 
IF  M  :TYPE,  2,1)  =  'I* 

ENDIF 

STORE  #  TO  M:  EEC  1 
STORE  CASE  TO  M:CASE 
STORE  CCG  TO  M:COG 
STORE  NSN  TO  M:NSN 
STORE  CAT  TO  M:CAT 
STORE  NCMEN  TC  M :  NOMEN 
STORE  UIC  TO  M:  UIC 
STORE  UI  TO  M :UI 
STORE  CTYDEF  TO  M: QTYDEF 
STORE  UPRC  TO  M:UPRC 
STORE  EPRC  TO  M: EPRC 
STCRE  CfG  TO  M:ORG 
STORE  CCC  TO  M:DOC 
STCRE  DCCNO  TO  M:DOCNO 
STORE  CATES  TC  M : DATES 
STCRE  BEPCON  TO  M.'REPCON 
STORE  FSCK  TO  MjFSCM 
STORE  TIME  TO  M: TIME 
STORE  WHO  TO  M:WHO 
STCRE  BUM  TO  M:NUM 
STORE  CB  TO  M :CR 
STCRE  SCR  TO  M:SCE 
STORE  SM  TO  M:SM 
STCRE  C9Q  TO  M:09Q 
STORE  DEF  TO  M :  DEF 
STCRE  VIC  TO  M:VLC 
STORE  ACIPT  TC  M : ACTPT 
STCRE  SCRQTY  TO  M : SCRQTY 
STORE  'O'  TO  M:  T  YPE 
RELEASE  ALL  LIKE  H:* 

RETURN 

ENDIF 

ELSE 

*****  XHE  FOLLOWING  SECTION  OF  CODE  UTILIZES  A  DELAY  LOOP 

*****  AND  A  LOCKING  MECHANISM  TO  ENSURE  THAT  ONLY  ONE  USER 

*****  IS  SITING  to  A  FILE  AT  ANY  GIVEN  TIME 

STORE  T  TC  HlFAIL 
DO  WHILE  H  :F  AIL 

STORE  0  TO  H: LOOPCNTR 
STCRE  2  TO  H:  CNTR 
USE  D:  FILESTAT 

*****  WHILE  OPEN1  IS  EEING  USED,  ENTER  DELAY  LOOP 

DO  WHILE  OPEN 1<>  *  • 

STOEE  H :CN  TR-  1  TO  H: CNTR 
IF  H :CNTR=  0 

STORE  2  TO  H : CNTR 

STORE  H  :  LOOPCNT  R+ 1  TO  HlLOOPCNTR 
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ENDIE 


***** 
***  *  * 

***** 


*****  IP  IN  DSL  AY  LCCP  A  SHORT  PERIOD  0?  TIME  DISPLAY  T::T 
*****  PACT  THAI  THE  PILE  IS  CURRENTLY  IN  USE 

IF  H :LGCPC NTF  =  ? 

a  23*16  SAY~'OPEN  CASE  FILE  CURRENTLY  IN  UcE* 
+ '  *  PLEASE  STANDBY ' 

ENDIF 

*****  CLOSE  OUT  THE  USE  FILE  THEN  REOPEN  IT  TC  CHECK  LATEST 
*****  STATUS  -  THE  FILE  MUST  FIRST  BE  CLOSED  AND  THEN 
*****  REOPENED  TO  CHECK  LAIESI  STATUS 

USE 

USE  D: FILE  STL  T 

*****  DELAY  BEFORE  TRYING  AGAIN 

STORE  1  TO  H : DELAY 
DO  WHILE  H  :  DELAY  <  5 

STORE  H:  DELAY  «■  1  TO  H:  DELAY 
ENDEC 
ENDDO 


***** 


***** 

***** 

***** 


IF  FILE  NOT  IN  OSE,  WRITE  OUT  YOUR  LOCK  INFORMATION 
a  23, 16  SAY  '  »; 


3  23, 16  SAY  ' 

+  « 

R E PL  0PEN1  WITH  C:  WHO 
USE 


FILE  LOCKED 

I 


*****  IF  TYPE  C  TRANSACTION  -  PERFORM  A  WRITE/UNLOCK 

IF  $  fM:TYPE.2,1)  =  'C' 

USE  D:FlLESTAT 

*****  VERIFY  THAT  YCU  HAVE  WRITE  ACCESS  TO  THE  DATA  BASE 
*****  RESET  THE  LOCK  ON  THE  RECORD  AND  WRITE  OUT  THE 
*****  UPDATED  INFORMATION 

IF  OPEN  1  =  C : WHO 

STORE  '  •  TO  M : TI M E 

USE  D: 0 PEN  1  INDEX  D:ONSN,  D:0CASE1 
GCTO  M: EEC  1 

REPL  CASE  WITH  !  (M  :  C  ASE)  ,  CO  G  WITH  !JM:COG),NSN  WITH; 

!  (  M  :  NSN)  ,C  AT  WITH  !  (M:CAT)  ,  NOMEN  WITH  !  <H  :  NOMEN)  ,  UIC  ; 
WITH  !  ( M  : UI C)  ,  U I  WITH  !  ( M:  U  I)  .  QT Y DEF  WITH  M  :  QTYDEF ,  UPRC  ; 
WITH  M :  UPRC  ,EPRC  WITH  M:E?RC,ORG  WITH  !(M:ORG),DOC  WITH  ; 
!  (M :  DCC) 

REPL  COCNO  WITH  !  (M ;  CCCNO)  .  D  AT  ES  WITH  !  TMrDATESI  .REPCON  : 


REPL  EEF  WITH  M :  DEF  ,  VLC  WITH  !  (M  :  VLC)  ,ACTPT  WIT! 
!  (M;  ACTET)  ,SCRQTY  WITH  M:SCE<2TY 

STORE  *0*  TO  M:  TYPE 
USE 

*****  UNLOCK  THE  DATA  FILE  FOR  OTHERS  TO  WRITE 

USE  DlFILESTAT 

REPL  OPEN1  WITH  •  • 

USE 

RELEASE  ALL  LIKE  H:* 

RETURN 

ENDIF 
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*****  IF  TYPE 


D  THEN  PERFORM  5E AD/LOCK  WITH  MSN  ACCESS  XT” 

I?  |JM:TY? E. 2, 1) =' D'  .OR.  $ (M: T YP Z , 2 . 1 } = ' I • 
IF  5fM:  TYPE, 2,1)  =  'O' 

STORE  'USE  DiOPSNI  INDEX  DiC.oN,  '  ; 

*  ' D :OCASE 1 1  TO  H: US  EFIIE 

*****  IF  type  c  then  perform  read/lock  with  case  access  key 

ELSE 

STORE  'USE  D  :  0  PEN  1  INDEX  DsOCASEI,*; 

♦  •  D  :0  NS  N’  TO  H:  USEFILE 

ENDIF 

USE  D:  FILESTAT 

*****  CHECK  TO  SEE  IF  THE  USER  HAS  THE  FILE  LOCKED  FOR 
*****  WRITING 


IF  OPEN  1  =  C: WHO 
SHiUSEFILE 
FIND  6M:KEY 

*****  CHECK  TO  SEE  IF  DESIRED  RECORD  EXISTS.  IF  SO  LOCK 
*****  THE  RECORD  BY  FILLING  THE  TIME  STAMP  AND  RETURN  THE 
*****  RECORDS  CONTENTS 

IF  #  =  0 

STORE  *9'  TO  M : TYPE 

USE  D:  FILESTAT 

REPLACE  OPEN1  WITH  •  ' 

USE 

RELEASE  ALL  LIKE  H:* 

RETURN 

ELSE 

*****  CEECK  TO  SEE  IF  THE  RECORD  HAS  PREVIOUSLY  BEEN 
*****  LOCKED  FOR  UPEATE  -  RETURN  TYPE  =  1  IF  PREVIOUSLY 
*****  LOCKED  OTHERWISE  LOCK  THE  RECORD  BY  FILLING  IN  THE 
*****  TIMESTAMP  AND  READ  THE  RECORD 

IF  TIME  <>  '  • 

STORE  • 1 •  TO  M:TYPE 
RELEASE  ALL  LIKE  H:* 

USE  D: FILESTAT 

REPLACE  OPEN  1  WITH  '  ' 

USE 

RETURN 

ELSE 

*****  READ  DATE/TIME  FOR  TIMESTAMP 

STORE  TO  H:  DUMMY 
POKE  61440,  180,  44,  205,  33,; 
137,  22,  13,  240,  137,  14,  ; 
15,  240j  195 
SET  CALL  TO  61440 
CALL  HlDUMMY 

STORE  STR (PEEK (61456) ,2)  TC  ; 

H : HOUR 

STORE  STRjPEEK  (6  1455)  ,2)  TC  ; 
H:  MIN 

STORE  STRlPEEK  (61454)  ,2)  TC  ; 
H:SEC 

IF  *  (H:HOUR,  1  ,  1)  = 

STORE  0  ♦$  (H :  HOUR,  2, 1)  ; 

TO  H  :  HO  U  R 

ENDIF 


***** 

***** 

***** 

* 

***** 

***** 


IF  $<H:MIN,  1,  1)  = 

STORE  0  +  3  (H:  MIN,  2,  1)  TC  : 
H:  a  IN 

ENDIF 

I?  SJH : SEC  ,  1 ,  1)  = 

STORE  0  +  $  (H.'SEC,  2,1)  TO  ; 
H :  SEC 


ENDIF 

STORE  C:  JULIAN+H:HOUF.  +  K:MIN+; 

H:SEC  TO  MtTIME 
REPL  TIME  WITH  M : T I M E 
STORE  #  TO  M:  REC 1 
STORE  CASE  TO  M:CASE 
STORE  COG  TO  M:COG 
STORE  NS  N  TO  M:NSN 
STORE  CAT  TO  M:CAT 
STORE  NOMEN  TO  M : NO  MEN 
STORE  UIC  TO  M:  UIC 
STORE  UI  TO  M:UI 
STORE  QT YDEF  TO  M: QT YDEF 
SIORE  UP RC  TO  MlUPRC 
STORE  EPaC  TO  MlEPRC 
STORE  ORG  TO  M : ORG 
STORE  DOC  TO  M:DOC 
SIORE  DOCNO  TO  M;DOCNO 
STORE  DATES  TO  M:DATES 
STORE  REPCON  TO  M:REPCON 
STORE  FSCM  TO  M:FSCM 
STORE  TIMS  TO  M:  TIME 
STORE  WHO  TO  M:WHO 
STORE  HUM  TO  M : NUM 
STORE  CR  TO  M:CR 
STORE  SCR  TO  M:SCR 
STORE  SM  TO  M:SM 
SIORE  090  TO  M : 090 
STORE  DEF  TO  M:  DEF 
STORE  VLC  TO  M:VLC 
STORE  kCTPT  TO  M:ACTPT 
STORE  SCRQTY  TO  M:  SCRQTY 
STORE  'O'  TO  M:TYPE 
USE  D: FILESTAT 
RE PL  0PEN1  WITH  •  • 

USE 

RELEASE  ALL  LIKE  H:* 

RETURN 

ENDIF 

ENDIF 

ENDIF 

ELSE 

TYEE  F  WILL  BE  USED  TO  CREATE  NEW  RECORDS 

IF  3  (M:  TYPE.  2,1)  =  '  F» 

USE  D: FILESTAT 

CHECK  TO  SEE  IF  THE  USER  HAS  THE  FILE  LOCKED  FOR 
WRITING 


IF  0  PEN  1  *  C : WHO 

9  23,25  SAY  •  UPDATING  CASE  • 

♦  'FILE  » 

USE  D: 0PEN1  INDEX  DrOCASEI,; 

D:  ONSN 

IF  NC  CASE  NUMBER  HAS  BEEN  ASSIGNED  BECAUSE  OF  A 
PREVIOUS  CASE,  ASSIGN  A  NEW  CASE  NUMBER 


IF  M  :C AS E  =  • 


*****  CHECK  FOR  LAST  CASE  IN  THE  DATA  BASE  AND  ASSIGN 
*****  NEXT  AVAILABLE  NUMBER 

GOTO  BOTTOM 

STORE  $  (CASE, 1.1)  TO  H:YR 
STORE  VAL($  (CASE, 2,  5)  )  ♦  1  TO  ; 
H:  SERIAL 

IE  H : S  ER IAL  >  9999 
STORE  H  J  YR  ♦  : 

STR  (H:SERIAL, 5,0)  TO  M:CASE 
ELSE 

IF  H: SERIAL  >  999 

STORE  H : YR  +  •  0  •  ♦  ; 

STS (HrSERIAL,  4,0)  TO  ; 

M: CAS  E 
ELSE 

IF  H : SERIAL  >  99 

STORE  H : YR  +  ’00'  +  ; 
STR  (H :  S  ERI  AL,  3 , 0)  TC; 
M: CASE 

ELSE 

IF  H :  SERIAL  >  9 

STORE  H : YR+ •  000'  ♦; 
STR  (H:  SERIAL,  2,0)  ; 
TO  M : CASE 

ELSE 

STORE  H : YR+  '  00  00 ' ; 
+  STR  (H: S  ERI AL, 1 ,0) ; 
TO  M  :  CASE 

ENDIF 
EN  DIF 
ENDIF 
ENDIF 
ENDIF 

3  23,26  SAY  'CREATING  NEW  RECORD' 
♦  •  -  OPEN1 ' 


*****  CREATE  N E»  SECCSD  AND  FILL  WITH  DATA 

APPEND  BLANK 

REPL  CASE  WITH  !  (M:CASE),COG  WITH  !  fM :  COG)  ,  NSN  WITH  ; 

!  (M:  NSN)  , CAT  WITH  !  (M:CAT)  ,  NOHEN  WITH  !(  H:  NOMEN)  ,  U IC  WITH; 

!  (M  :  UIC)  ,  UI  WITH  !  (  H  :UI)  , QTYDEF  WITH  M  :  QTYDE  F,  UPRC  WITH  : 
M;  UPRC,  EPRC  WITH  M:  EEEC.ORG  WITH  •  (M  :ORG)  ,  DOC  WITH  !(M:BOC) 
REPL  EOCNO  WITH  I  (M ;  DCCNO)  ,  DATES  WITH  !  (M :  DATES)  ,  REPCON  ; 
KITH  !  (MlREECON)  ,FSCM  WITH  ! (B :FSCM) . TIM E  WITH  !(M:TIME),; 
WHO  WITH  !(C:WHO[,NUM  WITH  !(M:NUM),SM  WITH  !(M:SM),09Q  ; 
KITH  !(M:09Q),DEF  WITH  M:DEF , ACTPT  WITH  !(M:ACTPT) 
a  23,26  SAY  '  • 

2  23,25  SAY  •  • 

STORE  »0*  TO  M : TYPE 

USE  D:  FILESTAT 

REPL  OPEN  1  WITH  '  • 

U  SE 

RELEASE  ALL  LIKE  H:* 

RETURN 

ENDIF 

ELSE 

*****  IF  T  YPE  G  THEN  UNLOCK  A  PREVIOUSLY  LOCKED  RECORD 
*****  (NO  UPDATE  WILL  TAKE  PLACE) 


$(M:  TYPE.  2,1)  = 
USE  D:  FILESTAT 


=  •  G' 


*****  CHECK  TO  SEE  IF  THE  USER  HAS  THE  FILE  LOCKED  FOR 
*****  WRITING 


IF  OPEN  1  *  ClWHO 


USE  D: OPEN  1 
GOTO  M  :  R  EC  1 


*****  CLEAR  THE  TIMESTAMP  TO  UNLOCK 


~  m-rvT»  —  M  •  M  ? 

P.EPL  TIME*WITH  • 
ENDIF 

USE  D: FILESTAT 
RE  PL  OPEN  1  WITH  • 
USE 
ENDIF 

RELEASE  ALL  LIKE  H:* 
RETURN 

*TT-\-r  ~ 


ENDIF 
ENDIF 
ENDIF 
END  DO 
ENDIF 
ENDIF 

*****  USE  OPEN 2  DATA  EASE  FILE 

CASE  I (MtTYPE.1 ,  1)  =  *2* 

*****  SINCE  OPEN2  HAS  A  SINGLE  KEY 
*****  MAY  EE  USED  FCE  ACCESS 

IF  $  (M:TYPE,  2. 1)  =  'A*  .OR.  5 
USE  D:OEEN2  INDEX  E:OCASE2 
FIND  S M :KE Y 


,  BOTH  TYPE  A  AND  B 
(M:TYPE,2,1)  =  '3' 


*****  FIND  REQUESTED  RECORD  IF  FOUND  RETURN  THE  DATA 
*****  ELEMENTS  AND  TYPE  =  0,  OTHERWISE  RETURN  TYPE  =  9 

IF  #  =  0 

STORE  '9'  TO  M:T  YPE 
RELEASE  ALL  LIKE  H:* 

RETURN 

ELSE 

STORE  #  TC  M : R EC  1 
STORE  CASE  TO  MlCASE 
STORE  QTYINS  TO  MlQTYINS 
STORE  QTYREC  TO  B : QTYREC 
STORE  QTYSTK  TO  M: QTYSTK 
STORE  DEF  V  TO  M:  DEFY 
STORE  DEFE  TO  H: CEFR 
STORE  ITEM  TO  M:  ITEM 
STORE  OYER  TO  H: OYER 
STORE  OTF  IC  M:  0 TF 
STORE  GOV  TO  M:GCV 
STORE  TIME  TO  M: TIME 
STORE  WHO  TO  M:WHO 
STORE  DITEM  TO  M:DITEM 
STORE  CCOST  TO  N:CCOST 
STORE  WNTY  TO  M: WNTY 
STORE  WUC  TO  M:WUC 
STORE  DIS  TO  M:DIS 
STORE  DETAILS  TO  M : DETAILS 
STORE  REPLY  TO  M : REPLY 
STORE  ACTTKN  TO  M :  ACTTKN 
STORE  COSTC  TO  M:CCSTC 
STORE  STATUSC  TO  M:STATUSC 
STORE  CAUSEC  TO  M:CAUSEC 
STORE  RETC  TO  M:  RETC 
STORE  ACTDISP  TO  M: ACTDISP 
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STORE  MFG  TO  M:HFG 
STORE  LOT  TO  M:  LOT 
STORE  *0*  TO  M:T  YPE 
RELEASE  ALL  LIKE  H:  * 

RETURN 

ENDIF 

ELSE 

*****  IF  TYPE  H  03  I  ACCESS  BY  RECORD  NUMBER  (M:REC1) 

IF  $  (M:  T  YPE.  2.1)  =  '  H*  .OR.  $  (M :  TY  P  E,  2 , 1 )  =  'I' 
USE  D:  0PEN2 
GOTO  M: REC 1 
IF  #  <>  K:REC1 

STORE  ■S»  TO  M:TYPE 
RELEASE  ALL  LIKE  H:* 

RETURN 

ELSE 


***** 


IF  TYPE  I,  SKIP  TO  NEXT  RECORD  AND  READ  DATA 


IF  $^M  :TYPE,  2 , 1)  =  'I' 
ENDIF 

STORE  #  TO  M:  REC 1 


STORE  CASE  TO  M:CASE 
STORE  CTYINS  TO  M: QTYINS 
STORE  CTYREC  TO  M : QTYREC 
STORE  QTYSTK  TO  M: QTYSTK 
STORE  EEFV  TO  M : DEFV 
STORE  CEFR  TO  M:  DEFR 
STORE  ITEM  TO  M: ITEM 
STORE  OVER  TO  M:OVER 
STORE  CTF  TO  M :OTF 
STORE  GCV  TO  M:GOV 
STORE  TIME  TO  MlTIME 
STORE  WHO  TO  M :  WHO 
STORE  EITEM  TO  M;DITEM 
STORE  CCOST  TO  MrCCOST 
STORE  WNTY  TO  M : WNTY 
STORE  WUC  TO  H:WUC 
STORE  EIS  TO  H:DIS 
STORE  DETAILS  TO  M: DETAILS 
STORE  REPLY  TO  MlREPLY 
STORE  ACTTKN  TO  M: ACTTKN 
STORE  CCSTC  TO  MlCOSTC 
STORE  STATUSC  TO  MlSTATUSC 
STORE  CAUSEC  TO  M:CAUSEC 
STORE  EETC  TO  M : RETC 
STORE  ACTDISP  TO  MlACTDISP 
STORE  MFG  TO  M :  MFG 
STORE  LCT  TO  M : LOT 
STORE  'O'  TO  M: T YPE 
RELEASE  ALL  LIKE  H:* 

RETURN 

ENDIF 

ELSE 


*****  THE  FOLLOWING  SECTION  REQUIRES  THAT  THE  DATA  BASE 
*****  SE  LOCKED  TO  ENSURE  ONLY  A  SINGLE  UPDATE  IS 
*****  PERFORMED  AT  A  TIME 


STORE  T  TO  H:  FAI  L 
CO  WHILE  H  :F  AIL 

STORE  0  TO  H: LOOPCNTR 
STORE  2  TO  H:  CNTR 
USE  D:  FILESTA1 

*****  LOOP  WHILE  0PEN2  IS  LOCKED  BY  ANOTHER  USER 
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***** 

***** 


DO  WHILE  OPEN  20  *  • 

STOFE  H:CNTR-1  TC  H :  CN  T  ?. 

IF  H  :C1ITH=  0 

STORE  2  TO  H : CNTR 

STORE  H  :LOOPCNTR«- 1  TO  H:LOOPCNT? 

END  IF 

TP  H  •TflflPrtlTRsl 

3  2  3^16  SAY  ’OPEN  CASE  FILE  CURRENTLY  IN' 
♦  i  USE  -  PLEASE  STAND3Y' 

END  IF 

CLOSE  AND  REOPEN  THE  FILE  STATS  TO  DETERMINE  ANY 
CHANGE  IN  FILE  LOCKING  STATUS 


USE 

USE  L: FILE STAT 

*****  DELAY  BEFORE  NEXT  ATTEMPT  TO  ACCESS  THE  DATA  EASE 

STORE  1  TO  HlDELAY 
DO  WHILE  H  :DELAY  <  5 

STORE  H: DELAY  +  1  TO  H : DELAY 
ENDCC 
ENDDO 

3  23, 16  SAY  • 

♦  ‘  • 

*  3  23,16  SAY  •  FILE  LOCKED 

+  •  • 


*****  WRITE  LOCK  TO  FILEST  AT 

RE  PL  0PEN2  WITH  CtWHO 
USE 


***** 

***** 


*****  IF  type  C  PERFCEH  WRITE/UNLOCK 

IF  S  (M  :TYPE,  2,1}  *  »C* 

USE  CjFILESTAT 

*****  CHECK  TO  SEE  IF  USER  HAS  WRITE  ACCESS  TO  THE  DATA 

*****  0ASe 

IF  CPEN2  *  C: WHO 

STORE  •  •  TO  M: TIM E 

USE  D: 0  PEN  2  INDEX  D:0CASE2 

*****  WRITE  UPDATE  INFORMATION  TO  THE  FILE 

GOTO  M:  REC  1 

REPL  CASE  WITH  !  (M  :  C  AS  E[,  QT  YIN  S  WITH  M:QTYINS,QTYREC  WITH 
MlQTYREC.QTYSTK  WITH  M : QTYS IK , DE F V  WITH  I (M: DEFV) , DEFR  ; 


REPL  WHO  WITH  !  (  M:  W HC)  . DITE  B  WITH  !  (M  :  DITEM)  ,  CCOST  WITH  ; 
M:CCCST , WNT Y  WITH  !  (EjWNTY)  ,WUC  WITH  !(M:WUC),DIS  WITH  ; 

! (M: DIS)  .DETAILS  WITH  !  (M : D ETAILS)  , REPL Y  WITH  !  ( M: REPLY) , 
ACTTKN  WITH  1  (M:  ACTTKN)  ,  COS  TC  WITH  !(«:COSTC) 

REPL  STATUSC  WITH  !  (MiSTATUSC)  .CAUSEC  WITH  !  ( H:  C  A  US  EC)  ,  ; 
RETC  WITH  !  (M:  RETC)  ,  ACTDISP  WITH  !  ( M:  ACTDIS P)  ,  MFG  WITH  ; 

!  (M:  MFG)  ,LOT  WITH  J(M:LOT) 

SIORE  'O'  10  M:  TYPE 
USE 

*****  UNLOCK  FILE  FOR  OTHERS  USE 

USE  D: F IL  EST AT 

REFL  0PEN2  WITH  '  ' 

USE 
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RELEASE  ALL  LIKE  H:* 
RETURN 
END  If 
ELSE 

***«#  if  type  D  OR  E  PERFORM  READ/LOCK 


IF  3(M:TYPE,2,1)  = 
CSE  D:FILESTAT 


.OR.  $  (M  :  TYPE,  2,1) 


444  *  * 
*4*  *  * 


44444 
444  4  4 


44444  CHECK  TO  SEE  IF  USER  HAS  WRITE  ACCESS  TO  THE  DATA 

44444  EASE 

IF  OPEN  2  =  CtWHO 

USE  D : 0 PSN2  INDEX  D:OCASE2 
FIND  SM:KEY 

44444  IF  DESIRED  RECCRD  FOUND  VERIFY  THAT  RECORD  IS  NOT 
44444  CURRENTLY  IN  CSE  -  IF  NOT  FOUND  RETURN  TYPE  =  9 

IF  #  =  0 

STORE  '9'  TO  MtTYPE 

USE  D:  FILESTAT 

REPLACE  OPEN2  WITH  »  » 

USE 

RELEASE  ALL  LIKE  H:* 

RETURN 

ELSE 

44444  if  TIMESTAMP  FILLED,  RECORD  IN  USE  -  RETURN 
44444  TYPE  =  1 

IF  TIME  <>  •  ' 

STORE  '1'  TO  M:TYPE 
RELEASE  ALL  LIKE  H:* 

USE  D: FILESTAT 

REPLACE  OPEN2  WITH  •  • 

USE 

RETURN 

ELSE 

44444  LOAD  TIME/DATE  INTO  TIMESTAMP  AND  READ  THE  RECORD 

STORE  TO  H:  DUMMY 
POKE  61440,  180,  44,  205,  33, 
137,  22,  13,  240,  137,  14, 
15.  240.  195 
SET  CALL  TO  6  1440 
CALL  HlDUHMY 

STORE  STR  (PEEK  (6  1456)  ,2)  TC  ; 
H: HOUR 

STORE  STRjPEEK  (61455)  ,  2)  TO  ; 
H:  MIN 

STORE  STR(PEEK  (61454)  ,2)  TC  ; 
H:SEC 

IF  $  (H:HOUR, 1  ,  1)  = 

STORE  0  ♦  $  (H:  HOUR,  2,1)  ; 

TO  H:  HOUR 


TO  H : HO  UR 

ENDIF 

IF  1  (H;MIN,  1,1)  = 

STORE  0  +  $  (H:MIN, 2, 1)  TO  ; 
H:  MIN 

ENDIF 

IF  S  (H:SEC,  1,1)  = 

STORE  0  +  $  (H:SEC,  2, 1)  TO  ; 
H:  SEC 

ENDIF 

S  TORE  C: JULIAN4H:HOUR  +H:MIN  + 
H:  SEC  TO  M-.TIME 
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fi EPL  TIME  WITH  M  : T I M E 
STORE  *  TO  M : REG  1 
STORE  CASE  TO  M:CASE 
STORE  QTYINS  TO  H:  QTY  I  NS 
STORE  QTYREC  TO  M: QTYREC 

CJTpCt1  O'T'VT'T'Y  ^  O  ^  *f»  V  <?  ~  V 

STORE  BEFV'TO *H: DEr V 
STORE  DEFR  TO  M: DEFR 
STORE  ITEM  TO  M :  ITEM 
STORE  OVER  TO  MiOVER 
STORE  OTF  TO  M : OTF 
STORE  GOV  TO  M:GOV 
STORE  TIME  TO  M: TIM E 
STORE  WHO  TO  M;WHO 
STORE  DITEM  TO  M : DITEM 
S TORE  CCOST  TO  MrCCOST 
STORE  WNTY  TO  M: WNTY 
STORE  WOC  TO  M:WUC 
STORE  DIS  TO  M:DIS 
STORE  DETAILS  TO  H: DETAILS 
STORE  REPLY  TO  MrREPLY 
STORE  ACTTKN  TO  M: ACTTKN 
STORE  COSTC  TO  M:COSTC 
STORE  STATUSC  TO  M:STATUSC 
STORE  CAUSEC  TO  M:CAUSEC 
STORE  RETC  TO  M: RETC 
STORE  ACTDISP  TO  M: ACTDISP 
STORE  MFG  TO  M : MFG 
STORE  LOT  TO  M: LOT 
STORE  '0*  TO  M:T YPE 

*****  U MOCK  DATA  BASE  FOR  OTHER  USERS 

USE  D: FILESTAT 

REEL  OPEN2  WITH  •  • 

'  USE 

RELEASE  ALL  LIKE  H:* 

RETURN 

ENDIF 

ENDIE 

ENDIF 

ELSE 


***** 


TYPE  F  CREATES  NEW  RECORDS 

IF  $  (M:  TYPE,  2,1)  =  'F' 
USE  D:FILESTAT 


*****  CHECK  TO  SEE  IF  USER  HAS  WRITE  ACCESS  TO  THE  DATA 
*****  EASE 

IF  0  PEN  2  =  CiWHO 

*  3  23,25  SAY  •  UPDATING  CASE' 

♦  '  FILE  ' 

USE  D:OFEN2  INDEX  D:OCASE2 

*****  ADC  THE  NEW  RECORD  AND  ENTER  DATA 

APPEND  BLANK 

REPL  CASE  WITH  !  (M:  C  ASE)  .QT  YINS  WITH  M  :  QTY  INS  .QT  YR  EC  WITH; 

M: QTYREC, OTYSTK  WITH  M: QTY STK ,DEFV  WITH  !  (M:  DEFV)  ,  DEFR  ; 
WITH  WM:DEFRf  .  ITEM  WITH  !  (  M ;  IT  EM)  ,  OVER  WITH  !(M:OVER),; 
OTF  WITH  !  (OTF), GOV  WITH  !  j  H;  GOV)  ,  TIME  WITH  !  (M:  TIME) 

REPL  WHO  WITH  I  ?  C:  WHO)  ,  DUE  M  WITH  !  (M  :  DITEM)  ,  WNTY  WITH  ; 

!  (M:  WNTY)  .  WUC  WITH  !JM:WUC),DIS  WITH  !  ( M :  DIS)  ,  DET  A IL S  ; 
WITH  !  (MiDETAILS)  ,  ACTDISP  WITH  I  (M;  ACTDISP)  , MFG  WITH  ; 

!  (M:  MFG)  ,LCI  WITH  !(K:LOT) 


STORE  'O'  TO  M:TYPE 


*****  UNLOCK  DATA  BASE  FOR  OTHERS 


USE  C:  FIL  ES  TAT 

REEL  OPEN  2  WITH  '  ' 

USE 

d  23,25  SAY  • 

+  •  • 

RELEASE  ALL  LIKE  H:* 

RETURN 
ENDI  F 
ELSE 

*****  IF  Type  G  PERFORM  UNLOCK  (NO  UPDATE) 

IF  $  (M:  TYPE.  2 , 1)  =  'G' 

USE  ErFILESTAT 
I F  OEEN2  =  C: WHO 
USE  D:  OP  EN 2 
GOTO  M : REC 1 
IF  TIME  =  M-.TIME 
REPL  TIME  WITH  ' 

ENDIF 

*****  UNLOCK  DATA  BASE  FOR  OTHERS 

USE  D:  FILESTAT 

REPL  OPEN2  WITH  •  • 

USE 

ENDIF 

RELEASE  ALL  LIKE  H:* 

RETURN 

ENDIF 

ENDIF 

ENDIF 

ENDIF 

ENDDO 

ENDIF 

ENEIF 

*****  TYPES  3  AND  4  DEAL  WITH  CLOSE1  AND  CLOSE2 
*****  THE  METHODOLOGY  USED  FOR  THESE  TYPES  IS  THE  SAME 
*****  AS  For  THE  OPEN1  AND  OPEN2  DATA  BASE  FILES 
*****  ONLY  DIFFERENCES  WILL  BE  NOTED  BELOW  SINCE  THE 
*****  EASIC  COMMENTS  ARE  THE  SAME  AS  ABOVE 


*****  TYEE  3  USES  CLCSE1 

CASE  $jM:TYPE,1 ,1)  =  '3' 

IF  $  (  K:TYPE.  2,  1)  =  'A'  .OR.  $  (M  :T YPE  ,  2 , 1)  =  'B' 

IF  ${M:TYPE,*,  1)  =  ’A' 

STORE  'USE  DsCLCSEI  INDEX  D:CNSN*  TO  H:USEFILE 
ELSE 

STORE  'USE  D:CL OSE 1  INDEX  D:CCASE1'  TO  H: US EF ILE 
ENDIF 

SH :  US  EFILE 
FIND  SMlKEY 
IF  #  =  0 

STORE  '9'  TO  M:T  YP  E 
RELEASE  ALL  LIKE  H:* 

RETURN 

ELSE 

STORE  #  TC  M :  REC  1 
STORE  CASE  TO  M:  CASE 
STORE  COG  TO  M:C0G 
STORE  NS  N  10  M:  N  SN 
STORE  CAT  TO  MiCAT 
STORE  NOMEN  TO  M : NO M  EN 
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STORE  UIC  TO  M:'J IC 
STORE  UI  IC  M :  UI 
STORE  QTYEZF  TO  M: QTYDEF 
STORE  UP R C  TO  .1 :  UP RC 
STORE  EPSC  TO  Ms EPHC 
STORE  ORG  TC  M:  0  RG 
STORE  DOC  TO  MiDCC 
STORE  DOC  NC  TO  M : DCCNO 
STORE  DATES  TO  M  :  CATES 
STORE  REPCCN  TO  MiREPCON 
STORE  FSCM  TO  Ms FSCM 
STORE  TIME  TO  M:  TIME 
STORE  WHO  TO  M:WHO 
STORE  NUM  TO  M I  N  U  M 
STORE  CR  TC  M:CR 
STORE  SCR  TO  M:SCR 
STORE  SM  TC  M:SM 
STORE  090  TC  M:09Q 
STORE  DEF  TO  MsDEF 
STORE  VLC  10  M: V IC 
STORE  ACTET  TO  M  :  ACTPT 
STORE  SCRQIY  TO  M: SCEQTY 
STORE  '0*  TO  M:T  YPE 
RELEASE  AIL  LIKE  H: * 


STORE  SM  TC  M:S 
STORE  090  TC  M: 
STORE  DEF  TO  M: 
STORE  VLC  10  M: 
STORE  ACTET  TO 
STORE  SCRQTY  TO 
STORE  'O'  TO  Ml 
RELEASE  AIL  LIK 
RETURN 
END  IF 
SE 

IF  S(MiTYPE,  2,1)  = 
USE  DiCLCSEI 
GOTO  M: REC1 
IF  #  <>  flsRECI 
STORE  'S'  TO 
RELEASE  ALL 
RETURN 
ELSE 

IF  $  (  M  :  TYPE, 
SKIE 
EN  DIF 

STCRE  #  TO  M 
STORE  CASE  T 
STCRE  CCG  TO 
STORE  NSN  TO 
STCRE  CAT  TO 
STCRE  NCMEN 
STCRE  UIC  TO 
STORE  UI  TO 
STCRE  CTYDEF 
STORE  UERC  T 
STCRE  EERC  T 
STORE  CHG  TO 
STCRE  CCC  TO 
STORE  ECCNO 
STCRE  CATES 
STORE  EEPCON 
STORE  FSCM  T 
STORE  TIME  T 
STCRE  WHO  TO 
STORE  NUM  TO 
STORE  CE  TO 
STORE  SCR  TO 
STCRE  SM  TO 
STORE  CSQ  TO 
STORE  EEF  TO 
STORE  VIC  TO 
STCRE  ACTPT 
STORE  SCRQTY 
STORE  »0*  TO 
RELEASE  ALL 
RETURN 


$  (M :  TYP  E,  2, 1 ) 


M : T YPE 
LIKE  Hi* 


M  iTYPE,  2,1)  =  'I* 

#  TO  M:  EEC  1 
CASE  TO  M: CASE 
CCG  TO  M:COG 
NSN  TO  M : N SN 
CAT  TO  M :C AT 
NCMEN  TC  M:  NOMEN 
UIC  TO  M : UIC 
UI  TO  M  sUI 
CTYDEF  TO  MiQTYDEF 
UERC  TO  MiUPRC 
EERC  TO  M : EP  RC 
CBG  TO  M : 0  RG 
ECC  TO  M : DOC 
ECCNO  TC  M I DCCNO 
EATES  TC  MlDATES 
EEPCON  TO  MiREPCON 
FSCM  TO  M: FSCM 
TIME  TO  M: II  ME 
WHO  TO  MlWHO 
NUM  TO  M : NUM 
CE  TO  M :CR 
SCR  TO  MlSCE 


FSCM  TO  M: FSCM 
TIME  TO  M: II  ME 
WHO  TO  MlWHO 
NUM  TO  MiNUM 
CE  TO  M :CR 
SCR  TO  MlSCE 
SM  TO  M  :SM 
CSQ  TO  Ml 09Q 
EEF  TO  MlDEF 
VIC  TO  MlVIC 
ACTPT  TO  M  I  ACTPT 
SCRQTY  TO  Ml SCRQTY 
•O'  TO  MlTYPE 
E  ALL  LIKE  Hi* 


END  IF 
ELSE 

STORE  T  TC  H:  FAI  L 
CO  WHILE  h  : r  AIL 

STORE  C  TO  H:  LOOPCNTR 
ST  ORE  2  TO  K : C  N  T  R 

DO^WHILE^CLOS  E1<>'  • 

STORE  H :CN  TR- 1  TO  H : CNT R 
IF  H  :CNTR=  0 

STORE  2  TO  H : CNTR 
STORE  H : LOOPCNTR+ 1  TO  HlLOOPCNTR 
END  IF 

IF  H:LOOPCNTR=2 

3  23,16  SAY  'CLOSE  CASE  FILE  CURRENTLY  IN'; 

+  ’  USE  -  PLEASE  SIAUEET’ 

END  IF 
USE 

USE  C; FILE  STAT 
STORE  1  TO  H: DELAY 
DO  WHILE  H  :  DELAY  <  5 

STCRE  HlDELAY  +  1  TO  H : DEL AY 
ENDCC 
ENDDO 

3  23, 16  SAY  '  •; 

+  '  • 

*  3  23,16  SAY  '  FILE  LOCKED  BY  •; 

+  'CLOSE1  ' 

RE PL  C LOSE  1  WITH  C:WHO 
USE 

IF  $  (  M  :TYPE,  2,1)  =  'C* 

USE  C: FILE  STAT 
IF  CIOS  El  =  C:WHO 

STORE  •  •  TO  M: TIME 

USE  D:CLOSE1  INDEX  DlCNSN,  DrCCASEI 

GOTO  M: REC  1 

REPL  CASE  WITH  «  (M :  C ASE)  ,CO G  WITH  !(M:COG),NSN  WITH  ; 
l/M.MCMl  f'STtJT'T’U  I  /KI.rST)  MnMEM  UTiflU  1  (MlNOMEN),UIC  WITH  ' 

QTYDEF  ^UPRC  WITH*: 

5)  ,  DOC  WITH  !  (M:  COC) 

( M  ;  DAT ES)  ,  REPCON  ; 
WITH  '(MlHEECON)  ,FSCM  WITH  1 f M : FSCM) , TIME  WITH  !(M:TIME),; 
WHO  WITH  !(M:WHO),NUM  WITH  !(M:NUM),CR  WITH  !(M:CR),SCR  . 
WITH  !(M:SCR),SM  WITH  !(M:SM),09Q  WITH  !(M:09Q) 

REPL  D  Ff  WITH  M  :  DEF  ,  VLC  WITH  !  (M  :  VL  C)  ,  ACTP T  WITH  ; 

!  (M : ACTPT)  , SCRQT  Y  WITH  M : SC  RQT Y 

STORE  •  0»  TO  M: TYPE 

g  eg 

CSE  DiFILESTAT 

REPL  CL  CSE 1  WITH  •  • 

CSE 

RELEASE  ALL  LIKE  Hi* 

RETURN' 

ENDIF 


REPL  COCNO 


WITH 

WITH 

WITH 


!  (M  :  DCCNO)  ,  DATES 


ITH  M: 
!  ( M  :  OR 
WITH  ! 


EL  SE 

IF  SjMiTYP E, 2,1)  =' D»  .OR.  $  (MtTYPE,  2,  1 )  =  'E' 
IF  $  (M: t£p§,2,1)  =  »D* 

STORE  'USE  D:CLOSE1  INDEX  D:CNSN,  •; 

♦  ' D : CC AS  E 1 •  TO  H: US  EFILE 

ELSE 

STORE  'USE  D :  CLO  S  E 1  INDEX  D:CCASE1,'; 
♦  »  D: CNSN  »  TO  H : US  EFILE 

ENDIF 

USE  DiFILESTAT 
IF  CLOS  El  =  ClWHO 
&H:  USEFILE 
FIND  6M:KEY 
IF  #  =  0 

STORE  '9'  TO  M:TYPE 
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USE  D:  FILESTAT 
REPLACE  CL0SS1  WITH  * 

USE 

RELEASE  ALL  LIKE  n:  * 

P  STU^N 
ELSE 

IF  II  ME  <>  ' 

STORE  ' 1 '  TO  K: TYPE 
RELEASE  ALL  LIKE  H :  * 
USE  D: FILESTAT 
REPLACE  CLOSE  1  WITH  ' 
USE 


RETURN 

ELSE 

STORE  TO 
POK  E  o 1 4  40 , 


H:  dummy 


POKE  olH40,  160,  -+4,  2u3 
137,  22,  13,  240,  137 

15.  240,  195 

SET  CALL  TO  6 1440 
CALL  HlDUMMY 
STORE  STR  (PEEK  (6  1456)  ,  2) 
H :  HOUR 

STORE  STR  (PEEK  (6  1455)  ,  2) 
H :  M  IN 

STORE  STR  (PEEK  (6  1454)  ,  2) 
H :  S  EC 

IF  $  (H:HOUR,1  ,1)  = 

STORE  0  +5  (H: HOUR, 2, 1 
TO  H : HOU  R 

ENDIF 

IF  $  (H  :  MIN  ,  1,1)  = 

STORE  0  +  3  (  H:  MIN,  2,  1) 

H :  MI  N 

ENDIF 

IF  3  (H:SEC,  1,1)  = 

STORE  0  +  3(H:SEC,2,1) 
H:  SEC 

ENDIF 

STORE  C: JULIAN+H :HOUR  +H 
H:SEC  TO  M: TIME 
REPL  TIME  WITH  M :TI M  E 
STORE  #  TO  M:  R EC  1 
STORE  CASE  TO  M:CASE 
STORE  COG  TO  M:COG 
STORE  NS  N  TO  M : NSN 
STORE  CAT  TO  M : C AT 
STORE  NOMEN  TO  M :  NOMEN 
STORE  UIC  TO  M:  UIC 
STORE  UI  TO  M : UI 
STORE  QTYDEF  TO  M: QTYDEF 
STORE  UPRC  TO  M:UPP.C 
STORE  EPRC  TO  M:EPRC 
STORE  ORG  TO  M : ORG 
STORE  DOC  TO  M :  DOC 
STORE  DOCNO  TO  M:DOCNO 
STORE  DATES  TO  M : DA  TES 
STORE  REPCON  TO  M:REPCON 
STORE  FS CM  TO  M:  FSCM 
STORE  TIMS  TO  M :  TIM E 
STORE  WHO  TO  M:WHO 
STORE  NUM  TO  M : N U M 
STORE  CR  TO  M:CR 
STORE  SCR  TO  M:SCR 
STORE  SM  TO  M:SM 
STORE  090  TO  M:09Q 
STORE  DEF  TO  M : D EF 
STORE  VLC  TO  M :  V  LC 
STORE  ACTPT  TO  M : ACTPT 
STORE  SCRQTY  TO  HrSCRQTY 


, 

,  14 


TO  ; 


:  MIN- 
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STORE  '0*  TO  M:TYPE 
USE  D:  FI  LEST  AT 
REPL  CLOSE-!  WITH  • 

USE 

RELEASE  ALL  LIKE  H:* 

RETURN 
EKDIF 
END  I  F 
ENDIF 
ELSE 

*****  PCR  TYPE  F,  a  NEW  RECORD  IS  CREATED  BY  TRANSFERRING 
*****  DATA  FROM  THE  OPEN  FILE  TO  THE  CLOSE  FILE 


IF  CLOSE1  =  C:  WHO 

3  23,25  SAY  '  UPDATING  CASE'; 

+  '  FILE  ' 

USE  D:  CLOSE1  INDEX  DlCCASEI,  ; 

D : CNS  N 

APPEND  BLANK 

REPL  CASE  WITH  !  (M :  C  ASE)  ,CO  G  WITH  !(M:COG),NSN  WITH  ; 

!  (M:  NSN)  ,  CAT  WITH  !(  M  :CAT)  ,  NOMEN  WITH  !  (M:  NOMEN)  ,  UIC  WITH; 

!  (M  :  UIC)  -  UI  WITH  !  ( M;UI)  , QTYDEF  WITH  M  :  QTYDEF, UPRC  WITH  ; 

M :  UP  RC  ,  EPRC  WITH  M:EFEC,ORG  WITH  !(M:ORG),DOC  WITH  !(M:DOC) 
REPL  EOCNO  WITH  !(M;  CCCNO)  ,  DATES  WITH  !  (M  :  DAT  ES)  ,  R EPCO N  ; 
WITH  !  (MiSEECON)  -FSCM  WITH  !  (M  ;  FSCM)  ,  TIME  WITH  !(M:TIME),; 
WHO  WITH  !<C:WHO),NUM  WITH  !(M:NUM),SM  WITH  !(M:SM),09Q  ; 
WITH  !(M:09Q),DEF  WITH  M  :DE  F ,  ACTPT  WITH  !(M:ACTPT) 

STORE  'O'  TO  M :  T  YPE 

USE  D:  FILESTAT 

REPL  CLOSE1  WITH  •  • 

USE 

3  23,25  SAY  '  •; 

♦  •  • 

RELEASE  ALL  LIKE  H;  * 

RETURN 

ENDIF 

ELSE 

IF  ${M:  TYPE,  2,1)  =  'G' 

USE  DlFILESTAT 
IF  CLOSE1  =  C ;  WHO 
USE  D; CLOS E 1 
GOTO  M : R EC  1 
IF  TIME  =  M : TIME 
REPL  TIME  WITH  ' 

ENDIF 

USE  D: FILESTAT 

REPL  CLOSE  1  WITH  •  ' 

USE 

ENDIF 

RELEASE  ALL  LIKE  H:* 

RETURN 
ENDI  F 
ENDIF 
ENDIF 
ENDIF  - 
END  DO 
ENDIF 
ENDIF 

*****  type  4  USES  CLCSE2  DATA  BASE  FILE 

CASE  $ JM:TYPE,1,1)  =  '4' 

IF  a  (M:TYPE,  2,1)  =  'A'  .OR.  $  (M :  T  YPE  ,  2 , 1)  =  »B» 

USE  D : CLOS  E  2  INDEX  D:CCASE2 
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FIND  &  M  :KE Y 
IF  #  =  0 

STORE  ' 9 '  10  M:T 
RELEASE  AIL  LIKE 
RETURN 
ELSE 

STORE  #  TC  M:PFC 
STORE  CASE  TO  1 : 
STORE  QTYINS  TO 
STORE  QTYEEC  10 
STORE  QTYSTK  TO 
STORE  DEF  V  TO  M: 
STORE  DEF  B  TO  M: 
STORE  ITEM  TO  M : 
STORE  OVER  TO  M: 
STORE  OTF  TO  .1:0 
STORE  GOV  TO  M: G 
STORE  TIME  TO  M: 
STORE  WHO  TO  M:W 
STORE  DITEM  TO  M 
STORE  CCOST  TO  M 
STORE  WNTY  TO  M: 
STORE  WUC  TO  M:W 
STORE  DIS  TO  M:D 
STORE  DETAILS  TO 
STORE  REPLY  TO  M 
STORE  ACTTKN  TO 
STORE  COSTC  TO  M 
STORE  STATUSC  TO 
STORE  CAUSEC  TO 
STORE  RETC  TO  M : 
STORE  ACTDISP  TO 
STORE  MFG  TO  M:M 
STORE  LOT  TO  H:  L 
STORE  'O'  TO  M:T 
RELEASE  ALL  LIKE 
FETURN 
ENDIF 
SE 

IF  $(M:TYPE,  2,1)  = 
USE  D:  CLCSE2 
GOTO  M : REC1 
IF  #  <>  M :REC1 
STORE  'S'  TO 
RELEASE  ALL  L 
RETURN 
ELSE 

IF  $  (  M  :  TYPE,  2 
SKIE 


YPE 
H :  * 


CASE 

as QTYINS 

M: QTYREC 

M: QTYSTK 

DEF  V 

EEFR 

ITEM 

OVER 

TF 

OV 

TIME 

HO 

: DIT  EM 
: CCOST 
WNTY 
uc 

IS 

M: DETAILS 
:  REPLY 
M: ACTTKN 
:COSTC 
M: STATUSC 
M:CAUSEC 
RETC 

a: ACTDISP 
FG 
CT 
YPE 
H:  * 


1:  TYPE,  2,1) 
IE  D:  CLCSE2 


=  'H»  .OR.  $  (M :  TYPE,  2,1) 


M:  TYPE 
IKE  H:* 


ENDIF 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


#  TO  M: 
CASE  TO 
QTYINS 
QTYREC 
CTYSTK 
DEFV  TO 
EEFR  TO 
ITEM  TO 
CVER  TO 
CIF  TO 
GCV  TO 
TIME  TO 
WHO  TO 
DITEM  T 
CCOST  T 
WNTY  TO 
WUC  TO 
DIS  TO 
DETAILS 


,1)  = 


EEC  1 
M: CASE 
TO  M : QTY IN  S 
TO  M: QTYREC 
TO  M:  QTYSTK 
M: DEFV 
M: CEFR 
M: ITEM 
MJOVER 
M :  OTF 
M  :  GOV 
M: TIME 
M :  W  HO 
0  M:DITEM 
0  M : CCOS T 
M: WNTY 
M :  W  UC 
M:  DIS 

TO  M: DETAILS 


SIGHS  REPLY  TC  M:P.ZPLY 
STORE  ACTTKN  TO  SiACTTKN 
STORE  CCSIC  TO  M:COSTC 
STORE  STAT03C  TO  S : ST  AT US  C 
STOSS  CAUSSC  TO  H:CAUSEC 
SICSE  EETC  TO  M  :  RZIC 
STORE  ACTDIS?  TO  M: ACTDISr 
STORE  EFG  TO  M  :  M  F  G 
STORE  ICT  TO  M: LOT 
STORE  'O'  TO  K:TYPE 
RELEASE  ALL  LIKE  H  :  * 

RETURN 

ENDIF 

ELSE 

STORE  T  TC  H:  FAI L 
CO  WHILE  H :FAIL 

STORE  C  TO  H:  LOOPCNTR 
STORE  2  TO  H:  CNTE 
USE  D:  FILESTAT 
DO  WHILE  CL0SE2O1  • 

STORE  H:CNTR-1  TO  H:  CNTR 
IF  H  :CNTR=  0 

STORE  2  TO  H : CNTR 
STORE  H : LOOPCNT R+ 1  TO  H: LOOPCNTR 
ENDIF 

IF  H :LOOPC  NTR=2 

9  22,16  SAY  'CLOSE  CASE  FILE  CURRENTLY  IN  USE  ' 
♦  PLEASE  STANDBY' 

ENDIF 

USE 

USE  C:  FILE STAT 
STORE  1  TO  H : DELAY 
DO  WHILE  H:DELAY  <  5 

STCRE  H: DELAY  +  1  TO  H: DELAY 
ENDEC 
ENDDO 

a  23,  16  SAY  * 

RE  PL  CLCSE2  WITH  C:WHO 
USE 

IF  $  (M:TYPE.2,1)  =  'C' 

USE  DiFILESTAT 
IF  CIOSE2  =  C:WHO 

STORE  '  '  TO  H: TIME 

USE  D:C  LOS  E2  INDEX  D:CCASE2 
GCTO  M :  REC  1 

REPL  CASE  WITH  ?  (fl :  CASE),  QT  YIN  S  WITH  H:  QTYINS  f  QTYREC  ; 

WITH  M : QTYREC, QTYSTK  WIT  H  H  :  QT  YS  IK,  DE  F  V  WITH  !(M:DEFV),; 

DEFR  WITH  !  (M:  DEFR)  ,  ITEM  WITH  !  (  M :  IT  EM)  ,  OV  ER  WITH  ; 

!  (M  :  OVER)  ,OTF  WITH  !<CTF),GOV  WITH  .»  (M:  GOV)  ,  TIME  WITH  ; 

HMlTIME) 

REPL  WHO  WITH  !  ( M:  WH  C)  .  DITE  M  WITH  !  (M  :  DITEM)  .  CCOS  T  WITH  ; 
M:CCOST,WNTY  WITH  !  ( K:  WNTY)  ,  WUC  WITH  !(M:WUC),DIS  WITH  ; 

!  (M:  DIS)  -DETAILS  WITH  !  <  M :  D  ETAILS)  ,  REPLY  WITH  !  (  M  :  REPL  Y)  , ; 

ACT  IK  N  WITH  !  (M:  ACTT  KK)  -COS  TC  WITH  !(H:COSTC) 

REPL  STATUSC  WITH  !  (  M  :ST  ATU  SC)  ,C  A  USEC  WITH  !  (  M:  CA  USEC)  ,  ; 

RETC  WITH  !  <M:RETC)  ,ACTDISP  WITH  !  (  M:  ACT  DIS  P)  ,  MFG  WITH  ; 

1  (M:  MFG)  , LOT  WITH  !(M:LOT) 

STORE  'O'  TO  M: TYPE 
USE 

USE  D: F ILEST AT 
REPL  CLCSE2  WITH  » 

USE 

RELEASE  ALL  LIKE  H:* 

RETURN 
ENDIF 
EL  SE 

IF  S  <M:TYPE.2.1)  =  •  D*  . 

USE  D:  FILESTAT 
IF  CLOSE2  =  C:WHO 


OR.  S  (H:  TYPE,  2, 1) 


t  Tf  I 


0  +  $'(H:  MIN, 2 , 1)  TO  H  :  MI  II 


USE  D : CLOSE2  INDEX  D:CCASE2 
FIND  SMzKEY 
IF  *  =  0 

STORE  • 9*  TO  M  :  T  Y  P  E 
USE  D:  FILES  TAT 
REPLACE  CLOSE2  WITH  • 

USE 

RELEASE  ALL  LIKE  H: * 

RETURN 
ELSE 

IF  TIME  <>  •  * 

STORE  ‘  1  •  TO  M: TYPE 
RELEASE  ALL  LIKE  H:* 

USE  D:  FILESTAT 
REPLACE  CLOSS2  WITH  1  ' 

USE 

RETURN 
ELSE 

STORE  TO  H: DUMMY 
ECKE  61440,  180,  44,  205,  ! 

22,  13,  240.  137,  14,  15, 

SET  CALL  TO  61440 
CALL  H :  D UMM Y 

STORE  STR(PEEK  (6  1456)  ,2)  T< 

STORE  STR(PEEK (6 1455) ,2)  T< 

STORE  STR(PEEK(6  1454)  ,  2)  T( 

IF  $JH : HOUR  ,  1  ,1)  = 

STORE  0  ♦$  (H:  HOUR,  2,  1)  TO  H:HOUR 
END  IF 

IF  5  (H:MIN,  1,1)  = 

STORE  0  +  $  (H: MIN, 2 , 1)  TO 
ENDIF 

IF  $  (H : SEC ,  1 ,  1 )  = 

STORE  0  +  S  ( H :  SEC,  2,  1)  TO 
ENDIF 

STORE  C:JULIAN+H:HOUR+H:MI! 

TO  MzTIME 

SEPL  TIME  WITH  M:TIME 
STORE  #  TO  M:  EEC  1 
STORE  CASE  TO  M:CASE 
STORE  QTYINS  TO  MrQTYINS 
STORE  QTYREC  TO  M:  QT  YREC 
STORE  QTYSTK  TO  M: QT  YST  K 
STORE  DEFV  TO  MzDSFV 
SIORE  DEFR  TO  MrDEFR 
STORE  ITEM  TO  H :  ITEM 
SIORE  OVER  TO  MiOVER 
STORE  OTF  TO  M : 0 TF 
STORE  GOV  TO  M:GOV 
STORE  TIME  TO  M ; TIME 
SIORE  WHO  TO  M:WHO 
STORE  DITEM  TO  MtDITEM 
SIORE  CCOSI  TO  M:CCOST 
STOHE  WNTY  TO  M : WNTY 
STORE  WUC  TO  M:WUC 
STORE  DIS  TO  M:DIS 
SIORE  DETAILS  TO  M: D  ETAILS 
STORE  REPLY  TO  MlREPLY 
STORE  ACTTKN  TO  M:  ACTTKN 
STORE  COST C  TO  MjCOSTC 
STORE  STATUSC  TO  MzSTATUSC 
STORE  CAUSEC  TO  MzCAUSEC 
STORE  RETC  TO  M : RETC 
STORE  ACTDISP  TO  MzACTDISP 
STORE  MFG  TO  M  :  M FG 
STORE  LOT  TO  M : L OT 
STORE  '0'  TO  MiTYPS 
USE  D:  FILESTAT 
REPL  CLOSE2  WITH  *  » 


205,  33.  1  37, 
14  ,  15  ,  240  ,  19 

)  ,2)  TO  H:  HO  UR 
)  ,2)  TC  H : M I N 
)  ,  2)  TO  H:SEC 


,  1)  TO  H:SSC 
R  +  H:  MIN+H:  SEC; 


YINS 
YREC 
YST  K 
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USE 

RELEASE 
RETURN 
ENDIF 
2NDI  F 


ELSE 


***  *  * 
***** 


FCR  TYPE  F,  A  NEW  RECORD  IS  CREATED  BY  TRANSFERRING 
DATA  FROM  THE  CEE N  FILE  TO  THE  CLOSE  FILE 

IF  $ (M: TYPE. 2,1)  =  'F' 

USE  D :FIlE§T AT 
IF  CLOSE2  =  C:  WHO 

USE  L :  C P 2N2  INDEX  DlCCASZI 
FIND  SM:CASE 
IF  #  <>  0 

+  *  FILE  • 

USE  D:  CLOS  E2  INDEX  D:CCASZ2 
APPEND  BLANK 


REPL  CASE  WITH  !  (M  :  C  AS E)  ,OT  YIN 
M: QTYEEC.QTYSTK  WITH  M : Q*Y  STK 
KITH  !  (MlDEFR)  .ITEM  KITH  !(M:I 
CTF  WITH  !  (OTF)  ,  GO  V  KITH  !  J  M  :  G 
REPL  WHO  WITH  I  (  C:  W HC)  ,  DITE  M  W 
J  (M  :  K  NT  Y)  ,  K  UC  WITH  !JM:WUC),DI 
WITH  !  (MlDETAILS) , ACTDISP  WITH 


!  (M: MFG)  , LO T  WIT! 


(M:CASE)  .OTYINS  WITH  M : QTY INS .QTY R EC 
WITH  M:QTYSTK,DEFV  WITH  !  (M: DEFY)  , 
REM  KITH  !  (M:ITEM)  .  OVER  WITH  !(«:OV 
30  V  KITH  !  J  M  :  GOV )  ,  T IME  WITH  !(M:TIM 
WHO)  ,DITEM  WITH  !  (M:  DITEM)  ,  WNTY  W 
CH  !  (M:  WUC)  ,  DIS  WITH  !  ( M : DIS )  , DET A I 
l,  ACTDISP  WITH  !  (M:  ACTDISP)  .MFG  WITH 


WITH: 


( M  :LOT) 


(M:  ACTDISP) 


STORE  'O'  TO  M : T YPE 
USE  D: FILESTAT 
REPL  CL0SE2  WITH  • 
USE 

S  23,25  SAY  ' 

+  • 


RELEASE 

RETURN 

ENDIF 

ENDIF 

ELSE 

IF  $  (M: TYPE, 2 


LIKE 


IF  $  (M:  TYPE,  2,  1)  =  'G' 

USE  C :  FIL  EST  AT 
IF  CI0SE2  =  C: WHO 
USE  D:  CLOS  E2 
GOTO  M : REC 1 
IF  TIME  =  MlTIMS 
REPL  TIME  WITH 
ENDIF 

USE  D:  FILESTAT 
REPL  CL0SS2  WITH  ' 
USE 
ENDIF 

RELEASE  ALL  LIKE  H:* 
RETURN 
ENDI  F 
ENDIF 
ENDIF 
ENDIF 
ENDDO 
ENDIF 
ENCIF 
ENDCASE 
RETURN 

*****  sue  OF  PROGRAM 


VIII.  so  CEP  VISOR  MENU 


**  ** 

**  DATE:  11  JANUARY  1934  ** 

♦*  VERSION:  1.0  ** 

**  MODULE  NAME:  SUPMENU1  ** 

**  MODULE  FURPOSE:  FROVIDE  MENU  FOR  SUPERVISOR  TO  ** 

**  ACCESS  QDF  SYSTEM  FROGRAMS  ** 

**  MODULE  INTERFACE  DEFINITION  ** 

♦*  INPUTS:  C:WHO.  C:JULIAN  ** 

**  OUTPUTS:  NONE  ** 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  ** 

**  THE  SUPERVISOR  IS  PRESENTED  WITH  A  MENU  OF  ** 

**  ALL  PROSESSING  CAPABILITIES  AVAILABLE.  AFTER  ♦* 

**  ONE  IS  CHOSEN,  THE  MODULE  THEN  CALLS  THE  ** 

**  DESIGNATED  PROGRAM  INTO  ACTION  OR  LOGS  THE  ** 

**  SUPERVISOR  CUT  OF  THE  QDR  SYSTEM  ** 

**  ** 

**  SUPERORDINATE  MODULES:  LOGON  ** 

**  SUBORDINATE  MODULES:  ME NU 1 ,C- RE AS GN , UTILMENU , SUP RPT Sf ** 
**  SUPRPT2  ** 

**  AUTHOR:  J.G.  BOYNTON  ** 

**  ** 


**** *******  ************************************************ 

ERASE 

STORE  T  TO  V:CO NTI NU  E 
CO  WHILE  V:  CONTINUE 
STORE  •  •  TO  V :  CHOICE 
TEXT 


WELCOME  TO  THE  QDR  SUPERVISOR  MENU 


1  -  MAIN  MENU  PROCESSING 

2  -  CASE  REASSIGNMENT 

3  -  ANALYST  WORKLOAD  STATISTICS 

4  -  UTILITY  PROGRAMS 

5  -  REPORT  GENERATION 

6  -  YEAR  END  PROCESSING 

7  -  SORTED  LISTINGS 

8  -  EXIT  FROM  THE  SYSTEM 


ENTER  YOUR  CHOICE 

ENDTEXT 

2  21,30  GET  V:  CHOICE 
READ 
? 

IF  V: CHOICE  >=  1  .AND.  V: CHOICE  <=  8 


DO  CASE 

CASE  V  :  CHOI  CE=  1 

RELEASE  ALL  LIKE  V:* 
DO  C:MENU1.PRG 


7 


CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


ELSE 

?  i 


ENECASE 
ERASE 
STORE  T 
STORE  ' 


V: CHOICE3  2 
RELEASE  ALL  LIKE  V:* 

DO  C  :  C-FEASG‘1  .  PP.S 
VlCHOICE*  3 
RELEASE  ALL  LIKE  V:* 

DO  C:  3T  ATGZN.  PRG 
V:  CHOICE*  4 
RELEASE  ALL  LIKE  V:* 

DO  C: UTILMENU .PRG 
V:  CHOICE*  5 
RELEASE  ALL  LIKE  V:* 

DO  C : SOPRPTS.  PRG 
V: CHOICE*  6 
RELEASE  ALL  LIKE  V:* 

DO  C: YEAREND. PRG 
V :  CHOICE=7 

RELEASE  ALL  LIKE  V:* 

DO  C:SUERPT2. PRG 
V:  CHOICE*  8 

RELEASE  ALL  EXCEPT  C :* 

ERASE 

RETURN 


TO  V:  CO  NTINUE 
'  TC  7  :  CHOICE 


PLEASE  ANSWER  WITH 


ONLY 


ENDIF  < V  : CHCICE> 
ENDDO  <V :CC  NTI NU  E> 
*****  ENE  OF  PROGRAM 


IX.  SUPERVISOR  UTILITY  MENU 


**** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

**** 


*  *  *****  «**  *  *  *41  **  *  *  *********  *  *******  *  *****************  ** 


** 

Date:  16  January  1984  ** 

Version:  1.0  ** 

Module  Name:  UTIIMENU  ** 

Module  Furpose:  Provide  Supervisor  with  menu  of  ** 

utility  programs  available  to  him.  ** 

** 

Module  Interface  Definition  ** 

Inputs:  C:WHO,  C:JULIAN  ** 

Outputs:  None  ** 

Module  Processing  Narrative  Description:  ** 

** 

Displays  menu  of  all  utility  programs  avail-  ** 

able  to  the  supervisor.  Calls  the  appropriate  ** 

program  after  user  selection.  Additional  level  ** 
of  security  required  for  packing  Data  Base.  ** 

** 

Superordinate  Modules:  SUPMENU1  ** 

Subordinate  Modules:  ANALYST, PASS, COGUPDT, ADDRUFDT ,  ** 

STATGEN,COGCNT, UTILNDX , DBP  ACK  ** 

Author:  J.G.  BOYNTON  S  R.G.  NICHOLS  ** 

** 


*******  ***  *  *  **  *  *  *  $  *****  ******************  ***  *********** 


STORE  T  TO  0:CONTINUE 


*****  Display  Options  Available  To  The  Operator 


CO  WHILE  U:  CONTINUE 
ERASE 

a  6,25  SAY 
S  9,29  SAY  '1 
a  $+1,29  SAY 
a  $+1,29  SAY 
a  $+1,29  SAY 
a  $+1  ,29  SAY 
a  $+1,29  SAY 
a  $+1,29  SAY 
a  $+1  ,29  SAY 
a  $+1,29  SAY 
STORE  '  'TO  D 
a  19,40  GET  U 
READ 


*****  utility  Processing  ****** 

Analyst  update* 

-  Password  Processing* 

-  COG  Update* 

-  Address  File  Update* 

-  Internal  Statistics  Update' 

-  Cog  Count' 

-  Re-Index  Index  Files  For  The  System' 

-  Clean  Up  The  Database  (Pack) ' 

-  Exit  To  Supervisor  Menu' 


2 

3 

4 

5 

6 

7 

8 
9 

REPLY 

REPLY 


PICTURE  *9' 


*****  Accept  Menu  Selection 

DO  WHILE  U:  REPLY  <  *1*  .OR.  U :  REPLY  >  '9' 
a  23,32  SAY  'Enter  1  -  9  Only*  +  CHR  (7) 
a  19,40  GET  U :  REPLY  PICTURE  *9* 

READ 

ENCDO 


*****  Call  Routine  Necessary  To  Perform  Desired  Function 


=  *9* 


DO  CASE 

CASE  U:HEPLY 
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RELEASE  ALL  LIKE  U  :* 

p  r  t  *j  ;  '} 

CASE^U:  REPLY  =  •  1' 

DC  C:  ANALYST 
CASE  _  U:RE?LY  =  '2* 

l>.  *_ :  ?  A  3  3 

CASE  U:  REPLY  =  '3' 

DO  C:  COGUP  DT 
CASE  UlFEPLY  *  'U* 

DO  C:  A  D  CRU  P  CT 
CASE  U:  R  EP  LY  =  »5' 

DO  C:  ST  AT  GEN 
CASE  0: REPLY  =  *6* 

DO  CrCOGCNT 
CASE  U: REPLY  =  '7' 


Display  Warning  Tc  The  Operator 


ERASE 

a  i,2S 

a  3,24 
a  4, 24 
a  5, 24 
a  6,24 
a  7, 24 
a  8,24 
a  9,  24 
a  10,24 
a  11,24 
a  12,24 
a  13,24 
a  14,24 
a  15,24 
a  17,24 
a  18,24 
a  19,24 
STORE  • 
a  21,40 
READ 


SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

'  TC 

GET 


***** 
*  *  * 
* 

* 

* 

*  Th 

*  A1 

*  Hi 

* 

*  If 

*  La 

* 

* 

*  *  * 
A 


0:  REP 
0: REPL 


Data  Base  Reindex  ****♦' 
************* 

* 

WARNING  * 

* 

is  Program  Will  Delete  * 

I  Index  Files  and  Then  * 

II  Re-Index  All  Files  * 

* 

Existing  Files  Are  * 

rge.  This  Could  Take  * 

Hours  ♦ 

* 

************* 

re  You  SURE  You’  Want  To* 
Continue ' 

<Enter  Y  or  N>*  ♦  CHR (7) 

LY2 

Y2 


*****  Accept  Response  From  User 

DO  WHILE  !  (  U  :  REPLY  2)  O'  Y ' 


WHILE  !  (  U  :  REPLY  2)  <>*  Y  ’  .AND.  MU:  REPLY2)  <>•  N‘ 
a  23  ,32  SAY  'Enter  Y  or  N  Only*  +  CHR  (7) 
a  21,40  GET  U:  R  EPL  Y2  PICTURE  '  A  • 


READ 

ENDDO 

a  23,32  SAY  • 
a  17,40  SAY  •  * 


*****  accept  and  Verify  Password  Before  Executing  Reguest 
IF  U:  RE  PLY  2  = 

5  21,30  SAY  'Enter  Your  Password  ' 

STORE  '  '  TO  U  :P  ASSWORD 

SET  CONSOLE  OFF 

ACCEPT  TC  UiPASSWORD 

SET  CONSOLE  ON 

IF  U : PAS  SWORD  <>  '  • 

USE  D  :  TECHCO  DE  INDEX  DlTECH 
FIND  SC : WHO 

IF  PS WD  =  U:  PASSWORD  .AND.  #  <>  0 
DO  C : UTIL  N  DX 
ELSE 

3  23,18  SAY  'Request  ABORTED  -  Strike  * 
♦  'Any  Key  To  Continue' 
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i] 


ESDI  F 
ES  DIF 

CASE  U:RSPLY  = 
LG  C :  D  3  PA  C  K 
EHECASE 
ENDDO 


*****  ENE  CF  PROGRAM 


***** 

** 

**  D 

**  V 
**  M 

**  a 

**  M 
** 

** 

**  h 
** 

** 

** 

** 

** 

** 

**  S 

**  s 

**  A 
** 

****  * 

STORE 
DO  WH 
ERASE 

* 

STORE 

TEXT 


X.  USER  SEEORT  MENU 


***********  **  *  *  ******  ***********************: 


ate:  11  January  1984 
ersion  :  1.0 
cdule  Name:  RPTMENU 
cdule  Purpose:  Allow  a 
cf  his 

cdule  Interface  Defini 
Inputs:  C:WHO,  C:JUL 
Outputs:  None 
odule  Processing  Narra 

Menu  is  provided 
cf  open  cases  th 
making  the  reque 
chosen,  then  mod 
is  to  return  to 
upercrdinate  Modules: 
utordinate  Modules:  OC 
Uthcr :  J.G.  BCYNTON 

********************** 

T  TO  C:TRUE 
TIE  C : T RU  E 


nalvst  to  receive  a  li; 
current  cpen  cases, 
tion 
IAN 

tive  Description: 

in  order  to  select  a  : 
at  belong  to  the  Araly: 
st.  If  report  listing  : 
ule  OCASERPT  is  called 
MEN01  . 

MEN  01 
ASEBPT 


******************  ***  ****** 


listi 

st 

is 

.  Exi 


*  **  ** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 

r  q  ** 
** 
** 

t  ** 
** 
** 
** 
** 
** 

*  **  ** 


•  •  TC  V:CHOICE 


*****  QUERY  REPORT  AVAILABLE  ***** 


1  -  Openfile  by  Cas< 

2  -  Exit 


Enter  Your  Choice 


ENDTEXT 

9  19,38  GET  V :  C  H  01 C  E 
READ 

* 

IF  V : CHOICE  >=  • 1 •  .AND.  V: CHOICE  <=  '2' 

* 

DC  CASE 

CASE  V:CH0ICE  =  '  1' 

DO  C :OC ASERPT 
CASE  V:  CHOICE  =  '2' 

STORE  F  TC  C  :TR  U  E 

ENECASE 


ELSE 
■>  » 


<  Please  Answer  With  a  1  -  2  ONLY  >' 


XT.  Sn?EB7ISCB  9 BP OPT  MENU 


****  *  *  *  **  *  ***********  *  *****  *  *****  4c  ******  *  *  ******  *  *****  *  *  A  *  * 
**  ** 

**  Cat-;:  15  January  1984  ** 

**  Version:  1.0  ** 

**  Module  Name:  SUPRPTS  ** 

**  Module  Purpose:  Frovide  Supervisor  a  menu  of  ** 

**  '  available  reports.  ** 

**  ** 

**  Module  Interface  Definition  ** 

**  Inputs:  C  :W  HO ,  C:JULIAN  ** 

**  Outputs:  None  ** 

**  Module  Frocessina  Narrative  Description:  ** 

**  "  ** 

**  Displays  a  menu  of  available  reports  and  prompts  ** 

**  Supervisor  to  chose  one  or  return  to  SUPMENU 1 .  ** 

**  Meekly  and  Monthly  reports  are  directed  to  the  ** 

**  printer.  Category!  ana  Extended  value  reports  ** 

**  are  created  in  text  files  on  D:  drive  and  may  be  ** 

**  printed  by  'typing1  the  file  using  standard  ** 

**  operating  system  functions.  All  reports  should  ** 

**  be  run  only  during  'off'  hours  due  to  their  ** 

**  large  amount  of  resource  utilization.  ** 

**  ** 

**  Superordinate  Modules:  SUFMENU1  ** 

**  Subordinate  Modules:  XX BWSTAT, XXMNST AT , CATIE PT, EXTV AL ** 

**  Author:  J.G.  BOYNTON  ** 

**  ** 

******  ********  *  *  **  *********  ******************  ***  *********  ** 


ERASE 

STORE  T  TO  V:CONTINUE 

CO  WHILE  V:  CONTINUE 

SET  TALK  OFF 

STORE  '  !  TC  V:CHOICE 

TEXT 


WELCOME  TO  THE  QDR  SPECIAL  REPORT  MENU 


1  -  Eiveekly  Statistics  Report 

2  -  Monthly  Statistics  Report 

3  -  Category  I  Report 

4  -  Extended  Value  Report 

5  -  Exit  to  Supervisor  Menu 


Enter  your  choice 

ENDTEXT 

2  19,35  GET  V:CH0ICE 
READ 
0 

IF  V:CHOICE  >=  ”1"  .AND.  V:CHOICS  <=  "5" 

IF  V :  CHOICE  =  "1"  .OR.  V:CHOICE  =  "2" 

ERASE 

a  3,15  SAY  '**  YOUR  PRINTER  MUST  BE  TURNED  ON  AND'; 
* ' AVAILABLE  ** ' 
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ESDI  F 


12,20  SAY  ' 

t  *r 

22,10  SAY  • 


PRESS  ANY  KEY  10  5 1 A  ?. 


C  h  S  E 

CASE  V : CHOICE=  "I” 

RELEASE  ALL  LIKE  V:* 

DO  C: X  XEIST AT . ?RG 
CASE  V: CHOICE=  "2" 

RELEASE  ALL  LIKE  V:* 

DC  C: X  XMNSTAT .PRO 
CASE  V:  CHOICE=  "3" 

RELEASE  ALL  LIKE  V: * 

USE  D  :  C  EE  N  1  INDEX  D:0CA5S1 

SET  T A I K  OFF 

STORE  0  TO  P:  COUNT 

STORE  C  TO  P : TOTAL 

SET  FORMAT  TO  SCREEN 

ERASE 

SET  ALTERNATE  TO  D : CA TIR? T 
SET  ALTERNATE  ON 
?  'Cat2:  1  ,  C  AT E  () 


CATEGORY  I  REPORT 


***** 

***** 


QDR  '  ; 

i 


CASE  # 
OPEN  LATE 


EXTENDED  PRICE' 
COG  • 


STORE  0  TO  P:  PAG  E 
STORE  5  TO  ROW 
DO  WHILE  .NOT.  EOF 

STCRE  P: TOTAL* 1  TO  P : TOT  AL 
IF  CAT=' 1 ' 

?  '  ' , CAS  E , '  ' , EPRC , ; 

•  ', SPATES,  11,5)  ,  ; 

'  ' ,COG 

STORE  ROW+1  TO  ROW 
SKI? 

STORE  P: COUNT+1  TO  ?:COUNT 
IF  ROW  >  60 
ERAS  E 
?  CH  R  ( 1  2) 

STORE  0  TO  ROW 

STORE  P  :  P  AG  E+  1  TO  P:?AGE 

9 

7 

?  '  PAGE  ',?:PAGE 


7  *  c  A  s  u  # 

♦ ' ENDED  PRICE 

+ '  COG  ' 

7 

SICRE  ROW+4  TO  ROW 
ENDIF  <p  AGE  IS  FULL> 

ELSE 

SKIP 

ENDIF  <NO  T  CAT  I> 

ENDDO 


EXT 

OPEN  DAIS 


CAT  1  CASES:' ,P:COUNT 
TOT  AL  CASES : '  , P : TOTAL 


***** 


END  OF  CAT' 
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*****  t 


CASE 


+  '  EGORY  I  REPORT 
?  CHS  {  12) 

SET  ALTERNATE  OFF 
SET  ALTERNATE  TO 
?  CHR  (7) 

?  CHR  (7 

y  ~  *  c*  *"* 

5  12, 2 C  SAY  *  Ycu  May  Receive  Your  Cat  1 
♦  *  Feport  On  ' 

a  13,20  SAY  '  DiCATIRPT.TXT  ' 

3  20,20  SAY  '  Press  Any  Key  To  Continue' 

WAIT 


V:CHOICE=  "4" 

RELEASE  ALL  LIKE  V:* 

USE  D  :  OPEN  1  INDEX  E  :  EXT  VAL 
R  E INDEX 
GOTO  TCP 
SKIP 

SET  TALK  OFF 
STORE  C  TO  P: COUNT 
STORE  0  TO  ?: TOTAL 
SET  FORMAT  TO  SCREEN 
E  R  AS  E 

SET  ALTERNATE  TO  D : EXTV ALUE 
SET  ALTERNATE  ON 


o 

9 


•Cate:  •  ,DATE() 


***** 


♦  •  EXTENDED  VALUE  REPORT 
■? 


****  * 


QDR  1 


-> 

♦ ' 

+  * 

•? 

♦  '  NSN 


♦  '  EXT  PRICE 
•? 


CASE  #  COG 
CAT 


OPEN  DATE 


SCREENING' 
SM 

NO  MEN 


CODE/DATE' 


UIC 


STORE  0  TO  P:  PAGE 
STCRE  6  TO  ROW 
DO  WHILE  .NOT.  EOF 

STORE  P : TOTAL+1  10  PiTOTAL 
?  '  '  .CASE  , '  '  ,COGr •  '  .SM, ' 

I  (nsn,i,4)  , '-’,$(nsn,5,2) 


$  (NSN  ,  1 , 4)  ,'-’,$(NSN,5,2)  , 
$  nsn'7^7  :•  ‘.'cat;* 

$  (NOM  EN,  1 ,10)  *  -DIC,'  [  / 


E  PRC 


li  it  f  <  r  '  ^  /  r 

'  , $ ( D AT  ES , 1  1,5)  ,  ' 

$  (DATES,  21  .5) 

STORE  ROW+1  TO  ROW 
STORE  P : COUNT+1  TO  P:COUNT 
IF  ROW  >  60 
ERAS  E 
?  CHR  (12) 

STORE  0  TO  ROW 

STORE  P  :  P  AG  E+  1  TO  P:PAGE 
-> 


•  ,SCR, f/'  ,; 


y 

7 

? 

7 

*  • 
+  ' 
+  * 
7 

+■  « 
♦  » 


PAGE  ', PIPAGE 


+ ' DATE 

7 


SCREENING' 

'  CASE  #  COG 
NSN  CAT 

UIC  EXT  PRICE 
CODE/DATE' 


SM  ' 
NOM 
C  Ft  n  w 


STORE  ROW  +4  TO  ROW 


PI  u 


ENDDO 

7 

7 

7 


_"V  ^  ^  _  ■-  -V  /.  ■  -  ■  -  -  -  .-V  ■ 


ENDIF  <P AGE  IS  FULL> 
SKI? 


ELSE 

?  ' 


CASE 


?  '  TOTAL  CASES: ' ,?:TOTAL 

7 

7 

?  '  *****  2'J D  OF  '  ; 

♦•EXTENDED  VALUE  REPORT  ****** 

?  CHR  (12) 

SET  ALTERNATE  OFF 
SET  ALTERNATE  TO 


?  CHE  (7) 

?  CHR  (7 
ERASE 

3)  12,20  SAY  • 


a)  13,20  SAY  • 
a)  20,20  SAY  ' 
WAIT 

V : CHOICE=  "5" 

ERASE 

RETURN 


You  May  Receive  Your  Extended'; 
Value  Report  On  1 

D: EXTVALUE.TXT  ' 
Press  Any  Key  To  Continue' 


ENCCASE 

ERASE 

STORE  T  TO  V:CONTINUE 
STORE  '  '  TO  V: CHOICE 

<  Please  Answer  With  1  -  5  ONLY  >• 


ENDIF  <V:CHCICE> 
ENDDO  <V:CONTINUE> 
*****  ENC  OF  PROGRAM 


XII.  2  DBS I  NODDLE 


*** *  9  ******  ****  ************  ************ ****** ******* ******* 


**  ** 

**  Dare:  23  Nov  1983  ** 

**  Version:  1.0  ** 

**  Module  Name:  QUERY  ** 

**  Module  Eurpose:  Free  Format  Query  Against  the  OPEN  ** 

**  and  CLOSED  Data  Fills  ** 

**  ** 

**  Module  Interface  Definition  ** 

**  Inputs:  C :W HO ,  C:JULIAN  ** 

**  Outputs:  None  ** 

**  ** 

**  Module  Frocessina  Narrative  Description:  ** 

**  '  ** 

**  Accepts  Selection  and  Display  Parameters  from  ** 

**  the  user  and  generates  the  necessary  Data  Base  ** 

**  Commands  to  extract  the  desired  information.  ** 

**  Temporary  files  are  created  as  the  QUERY  is  ** 

**  being  processed.  These  files  are  deleted  upon  ** 

**  exiting.  Ihe  user  may  either  print  or  display  ** 

**  the  information  extracted.  ** 

**  ** 

**  Superordinate  Modules:  MENU1  ** 

**  Subordinate  Modules:  None  ** 

**  Author:  R.  G.  NICHOLS  ** 

**  ** 


***********  *  ♦  **  *  *  ******  ********************************* 

*****  Display  Menu  Selection  Options  and  Accept  Response 

*SET  CCLCR  TO  112,  6 
STORE  '  '  TC  Q: REPLY 

ERASE 

a  6.26  SAY  ******  Query  Processing  ♦****• 
a  10,27  SAY  'THIS  PROGRAM  ALLOWS  YOU  TO* 
a  12,28  SAY  'QUERY  THE  QDR  DATA  BASE' 
a  15,32  SAY  *1  -  Continue' 
a  17,32  SAY  '2  -  Return  to  Menu' 
a  20,40  SAY  '  '  GET  Q:REPLY 
BEAD 

CO  WHILE  Q: REP LY  <>  '1'  .AND.  Q: REPLY  <>  '2' 

a  23,20  SAY  'Enter  1  or  2  for  Your  Response*  ♦chr  (7) 
a  20,40  SAY  '  •  G  El  Q : RE  PLY 
READ 
ENDDO 

*****  If  Response  is  to  Exit  Release  all  Memory  Variables 
*****  and  Return  to  MENU1 

IF  O: REPLY  =  ' 2' 

RELEASE  ALL  LIKE  Q  :* 

RETURN 

ENDIF 

*****  Allow  User  to  Select  Files  to  Run  The  Query  Against 

STORE  •  •  TC  Q: REPLY 

ERASE 

a  6.24  SAY  '  ***  Query  Processing  Module  *** ' 
a  10,20  SAY  'Select  Fiie(s)  to  be  Used  for  this  Query' 

2  12,25  SAY  '1  -  OPEN  FILE' 


S  14,25  SAY  '2  -  CLOSED  FILE* 

3  16,25  SAY  *3  -  Merced  OPEN  and  CLOSED  File* 

2  20  ,40  GEI  Q:  REFLY  PICTURE  '9* 

BEAD 

DO  WHILE  Q:  REPLY  O'  1  '  .  AND.  Q:RZPLY<>'2'  .  AHD.Q:  5EPLYO  '  3  * 
a  23,23  SAY  *  Eatrv  MUST  Be  1,  2,  or  3*  +  CHR(7) 

3  20,40  GET  Q  :  3  E  ?  t  Y  PICT  OP"  '4' 

READ 

ENDDO 

2  23,28  SAY  •  • 

STORE  10  TO  Oi  C NTR 

STORE  '  Q  :L '  +  STE(Q:CNTR,2)  TO  Q:  LINE 
DO  CASE 

*****  if  OPEN  File  Is  Selected  Indicate  O  File  Selection 

CASE  Q : R EPLY  =  '  1  ' 

STORE  1  TO  Q : NR  PASSES 
STCRE  'O'  TO  Q : FILS 

*****  if  CLOSE  File  Is  Selected  Indicate  C  File  Selection 

CASE  C: REPLY  =  ' 2  ' 

STORE  1  TO  QlNFPASSES 
STCRE  'C'  TO  Q  : FILE 

*****  if  OPEN  File  Is  Selected  Indicate  O  File  Selection 
*****  and  indicate  Two  Passes  Required  For  Execution  of 
*****  Generated  Code 

CASE  C : R EPLY  =  '  3  ' 

STORE  2  TO  Q: NFEASSES 
STCRE  'O'  TO  Q :  FILE 
ENDCASE 

STORE  '  '  TO  Q  :  S  ELC  MCI 

STORE  •  '  TO  Q: S  ELCME2 

STORE  '00*  TO  Os  SELECT 
STORE  0  TO  Q:ITEM 

*****  start  Loop  To  Accept  Selection  Criteria 
DO  WHILE  Q :  ITEM  <=  4  .AND.  Q: SELECT  <>  '58' 

*****  Display  First  Screen  of  Menu 

IF  Q:  SELECT  =  '00' 

*  -  SCREEN  1  MENU  - 

ERASE 

a  2,20  SAY  'Enter  Selection  Criteria  For  This  Query' 
a  3,20  SAY  '  (A  Maximum  cf  5  Items  May  Be  Selected)' 
a  4,0  SAY  • - - — - - 

+  i - 

a  5,0  SAY  'Data  Elements* 
a  5,25  SAY  '  !  ' 

*  SET  COLOR  TO  112,2 

a  5,27  SAY  '  58  End  Element  Select' 
a  5,53  SAY  '  59  Abandon  Query' 

*  SET  COLOR  TO  1  12,  6 
a  5,5  1  SAY  '  !  ' 

a  6,25  SAY  '  !  ' 

3  6,5  1  SAY  • !  ' 
a  7,1  SAY  '01  Case  N  timber' 

3  7,25  SAY  'I  11  Origin  Code' 
a  7,51  SAY  '!  21  Interim  Repor' 

a  7,71  SAY  »t  Date' 
a  8,1  SAY  '02  Cog* 

3  8,25  SAY  '  !  12  Type  Document' 


8.51  SAY  '  ! 

9.1  SAY  *03 

9.25  SAY  •  ! 

+  • 

10.1  SAY  *04 

10. 25  SA  Y  •  ! 

10.51  SAY  *  ! 
10, 71  SAY  '  1 


11,  25  SAY  •  !  15  0 

1 1 . 51  SAY  ' 1  25  F 

12,  1  SAY  » 06  UIC  o 

12. 25  SAY  '  !  16  T 

+  •  26  C 

13.1  SAY  *07  Unit 

13,  25  SAY  '  !  17  I 

♦  '  27  C 

14.1  SAY  '08  Unit 

14.25  SAY  •  !  18  C 

14. 51  SAY  •  !  28  S 

15. 1  SAY  '09  Quant 

+  •  19  Reo 

16,  1  SAY  • 1 0  Exten 

16.25  SAY  ' !  20  S 

16, 46  SAY  '  Date  ! 
17,0  SAY  • - 

+  • - 

18,0  SAY  'Relations 
18,42  SAY  ' c  -  Rang 

19, 10  SAY  'e  -  Not 

♦  '  g  -  Grea 

21,27  SAY  ' Enter  Da 


i  22  Oriqin  Prep  Date' 

3  NS  7 ' 

!  13  Discovery  Date  !*; 

'  23  Document  Number' 

04  Category' 

'!  14  Date  Received' 

1  !  24  Report  Centro' 

'  1  Number  * 

05  Nomenclature* 

'  !  15  O  pen  Date ' 

•  l  2  5  F  SCM  • 

06  UIC  of  Origin' 

'!  16  Transmittal  Date 

'  26  Contract  Number' 

07  Unit  or  Issue' 

'!  17  13  Response  Date  !'; 

'  27  Credit  Code' 

0  8  Unit  Price' 

'  !  18  Close  Dat e' 

'!  28  Screening  Code' 

09  Quantity  Deficient  !'; 

19  Reopen  Date  !  29  SMIC' 

10  Extended  Price' 

'!  20  Screen  Report' 

'Date  !  30  Next  Page  of  Elements' 


READ 

DO  WHILE  Q  :SEL 
9  23,26  SAY 
3)  21,27  SAY 


elations  a  -  Include 
c  -  Range  d  -  Equal' 
e  -  Not  Equal  f  -  l 

g  -  Greater  Than' 

Enter  Data  Element  Number 
Q  :  SELECT  PICTURE  *99' 


-  Exclude' 


Less  Than 


Q  :SELECT  <  *00'  .OR.  Q:SELECT  >  '59' 
6  SAY  'Select  From  Above  (00  -  591  ' 


READ 

ENEDO 

3  23,26  SAY 
ELSE 


•Select  From  Above  (00  -  59)  1 
'Enter  Data  Element  Number  ' 
Q: SEL EC1  PICTURE  '  99  • 


♦  CH  R  ( 7) 
GET  ; 


*****  Display  Second  Screen  of  Menu 


Q:  SELECT  » 
ERASE 

3  2,20  SAY 

♦ 

a  3,20  SAY 
a  4,0  SAY 

*  ' - 

a  5,0  SAY 
a  5,25  SAY 
SET  COLOR 
a  5,27  SAY 
a  5,53  SAY 
SET  COL CR 
a  5,51  SAY 
a  6,25  SAY 
a  6,51  SAY 
a  7,1  SAY 
a  7,25  SAY 


a  8,1  SAY 
3  8,25  SAY 

4 

a  9,1  SAY  1 
a  9,25  SAY 


'Enter  Selection  Criteria  For  This'; 

*  Query' 

'(A  Maximum  of  5  Items  May  Be  Selected) 


' Eata  El eraent s ' 

'  !  ' 

TC  *  1 1 2  2 

'  58  *End  Element  Select* 
'  59  Abandon  Query' 

TC  112,  6  1 

•  1 1 


90  Region' 

40  Deficiency  Ver 

49  Action  Code' 
Type  Defect' 

41  Deficiency  Resp 

50  Cost  Code' 
Vendor  Liab  Code' 

42  New-Repair/Ovhl 


140 


10. 1  SAY 

10.2  5  SAY 
10,51  SAY 
11,1  SA  Z 
11,25  SAY 


12,  1 

12,  2 

12.5 

13,  1 

13.5 

14,  1 

14.5 

15.1 

15.5 
16,  1 

16,  5 
17,0 
+  '  - 

18,0 
18,4 
19,  1 

21.2 


5  SAY 
1  SAY 
SAY 

+  • 

8  SAY 
SAY 
♦  • 

8  SAY 
SA  Y 
+  ‘  » 

8  SAY 
SAY 
+  • 

1  SAY 
SAY 


SAY 
2  SAY 
0  SAY 

+  ' 

7  SAY 


«  51 

34  AC 


•O  c?. 

' !  45 

' !  54 

37  Qu 

46  Ho 
•Lot/S 

38  QU 

47  Di 
'Def  I 

48  He 
•Warra 

58  En 

59  Ab 
• !  00 


Status  Code' 
tion  Point' 

Date  M  f  g  /O  v  h  1 ' 

Cause  Code' 
reen  Quanxirv' 

Odp.  Tame  at  Failure!"; 
Action  Dis'n" 
alyst  Code* 

GFM  ' 

Part  Number’ 
anxity  Inspected  !': 
rk  Unit  Code  !  55' 

er/Batch ' 

antity  Received  !•: 
sco very  Code  !  56' 

tern ' 

entity  in  Stock 

turn  Code  !  57* 

ntv  • 

d  Element  Select  !'; 
andcn  Query' 

Frev  Page  of  Elements' 


_ 1 

Exclude' 


EN 

a 

ELSE 


;ad 

I  WHILE  o: 
a  23,26 
a  21  ,27 

READ 
I DDO 

23,26  SAY 


•Relations  a  -  Include  b  -  Exclude' 
'c  -  Ranqe  d  -  Equal' 

'e  -  Net  Equal  f  -  Less  Than  ' 

g  -  Greater  Than' 

'Enter  Data  Element  Number  '  GET  ; 

Q  :  SEL  ECT  PICTURE  '99' 

SELECT  <  '00'  .OR.  Q: SELECT  >  '59* 

SAY  'Select  From  Above  (00  -  59)'+CHR(7) 
SAY  'Enter  Data  Element  Number  '  ; 

GET  Q : SELECT  PICTURE  '99' 


***** 

***** 

***** 


Begin  Case  To  Generate  Formats  For  Entering  Initia 
Values  -  Each  Selected  Item  Has  Its  Name  and  Pictu 
Stored  in  an  Indirect  Variable 


DO  CASE 

*****  If  Termination  Requested  Release  Local  Memory  and 
*****  Return  to  Calling  Routine 


CASE  Q: SEL 
RELEASE 
RETURN 


O:  SELECT  =  '59' 
LEASE  ALL  LIKE 


*****  Begin  Generating  Selection  Code 

*****  n  a  character  Field  Set  Character  Flag 

*****  Lead  The  Picture  for  the  Data  Field 

*****  Initialize  the  Data  Field  and  Then  Continue 

*****  to  Generate  Code 

CASE  Q;  S  ELECT  =  '01* 


STORE  'CASE'  TO  Q; SELITEM 
STORE  "'999999A'"  TO  Q:SEL?IC 
STORE  '  '  TO  Q:INIT1 

STORE  T  TO  Q; CHAR 
STORE  'QiSELCMDI  '  TO  Q:  SELCMD 
CASE  Q:  SELECT  =  '02' 

STORE  'COG*  TO  Q  :  SELITEM 
STORE  9 A '"  TO  Q:SELPIC 
STORE  T  TO  Q; CHAR 


rH  l  4 


ST  CEE  •  '  TO  QiINITI 

STORE  ' Q : SELC MD  1  '  TO  Q: SELCMD 
CASS  Q :  5  ELECT  =  *03' 

STORE  'NSW  TO  Q  :  SELI TEH 

STCRE  "'9999XXXXX9999' "  TO  Q:SEL?IC 

STORE  1  TO  Q: CHAR 

STORE  *  C :  SELC  MD  1  1  TO  QlSELCflb"* 

CASE  Q:  S  ELECT  =  '04» 

STORE  'CAT*  TO  QlSELITEM 
STORE  '"9"'  TO  QlSELPIC 
STORE  '  '  TO  QiINITI 
STCRE  T  TO  Q: CHAR 
STORE  ' Q: SELC  MD1 '  TO  Q: SELCMD 
CASE  Q :  S  El  ECT  =  '05' 

STORE  * SOMES*  TO  2: 5 ELI TEH 
STORE  '"XXXXXXXXXXXXXXXXXXX' »  TO  QlSELPIC 
STORE  '  '  TO  Q: I  NIT  1 

STORE  T  TO  Q: CHAR 
STORE  'QlSELCMDI'  TO  Q: SELCMD 
CASE  Q:  S  ELECT  =  *06' 

STORE  'UIC*  TO  QlSELITEM 
STORE  "'AXXXXX'"  TO  Q:SELPIC 
STORE  '  '  TO  QiINITI 

STORE  T  TO  Q: CHAR 
STORE  'QlSELCMDI'  TO  Q: SELCMD 
CASE  0:SEIECT  =  '  07' 

STORE  '01'  TO  Q: SELIT EM 
STCRE  "'AA'"  TO  Q:SELPIC 
STORE  •  •  TO  Q:INIT1 

STCRE  T  TO  Q: CHAR 
STORE  '  C : SELC  MD 1  *  TO  Q: SELCMD 
CASE  0:SELECT  =  '0  8* 

STORE  '  UPRC*  TO  Q: SELITEM 
STORE  ''•999999.99'  "  TO  QrSELPIC 
STORE  S  TO  Q: NR 
STORE  2  TO  Q: EEC 
STORE  0  TO  Q: INIT1 
STCRE  F  TO  Q: CHAR 
STORE  '  C : SELC  MD 1 •  TO  Q:SSLCMD 
CASE  Q:  SELECT  =  »09« 

STORE  ' QTYDEF '  TO  Q: SELITEM 
STORE  99999  9' "  TO  Q:SELPIC 
STORE  6  TO  Q: NR 
STORE  0  TO  Q:  EEC 
STORE  0  TO  Q: INIT1 
STORE  F  TO  Q:  CHAR 
STORE  ' C 5  SELC MD1 *  TO  Q: SELCMD 
CASE  Q:  S  ELECT  =  '10' 

STORE  •  EPRC'  TO  Q: SELITEM 
STORE  '"999999999.99'"  TO  Q:SELPIC 
STORE  12  TO  Q : NR 
STORE  2  TO  Q:  EEC 
STORE  0  TO  Q: INII1 
STCRE  F  TO  Q: CHAR 
STORE  * C:  S  "LC  MD  1  '  TO  Q:  SELCMD 
ri  <;  p  D'SEIFC  =  '11* 

STORE  ' C RG '  TO  Q: SELITEM 
STCRE  "•XXX"'  TO  Q:SELPIC 
STORE  '  '  TO  QiINITI 

STORE  T  TO  Q: CHAR 
STORE  'QlSELCMDI '  TO  Q: SELCMD 
CASE  Q : S  ELECT  =  '12  ' 

STORE  'DOC'  TO  QiSELITEM 
STORE  "'9'"  TO  QiSELPIC 
STORE  '  '  TO  0 1 1  NIT  1 
STORE  T  TO  Q: CHAR 
STORE  'QlSELCMDI'  TO  Q: SELCMD 
CASE  Q:  SELECT  =  •  13' 


STORE 
STORE 
STORE 
STORE 
STORE 
CASE  Q: 


'$ (DATE S, 1,5) •  TO  Q: SELITEM 
ti  i  99999  •  it  to  Q:  SELPIC 
'  1  TO  QlINITI 

I  TO  Q: CHAR 

' QlSELCMDI 1  TO  Q: SELCMD 
SELECT  =  '14' 

'  $  (DATES,  6 ,5)  •  TO  Q  :  SELITEM 


•  $  (DATES-  6.5) 
"  *99999  '  r'  10 


Ql  S  ELECT  =  ' 
RE  ' I (DATE  S . 
RE  '"99999  " 


Q: SELCMD 

TO  Q : SELITEM 
SELPIC 


STORE  '  $  (DATES,  6 ,5)  •  TO  Q  :  SELITEM 
STORE  '"99  999  '  "  10  Q:  SELPIC 
STORE  '  '  TO  Q: INIT1 

STORE  T  TO  Ql CHAR 
STORE  'Cl SELC  MD 1 '  TO  Q: SELCMD 
ci q  f  n«qFTFrT  = 

STORE  'I  (DATES,  1  1.5)  1  TO  Q  :  SELITEM 
STORE  "'99999'"  TO  QiSELPIC 
STORE  '  '  TO  Q : IN  IT  1 

STORE  T  TO  Q: CHAR 
STORE  •  Q  I S  EL  C  M  D 1  •  TO  Q : SELCM  D 
CASE  Q: SELECT  =  '16' 

STORE  '3  (DATES.  16, 5)  •  TO  Q  :  SELITEM 
STORE  '"  99999  '''  TO  QiSELPIC 
STORE  '  '  TO  Qi INIT  1 

STORE  T  TO  Q: CHAR 
STORE  'Cl SELCMD1 '  TO  Q: SELCMD 
CASE  Q:  S  ELECT  =  *17* 

STORE  'I  (DATE S, 26.5) '  TO  Q : SELITEM 
STORE  *"  99999  '  r'  TO  QiSELPIC 
STORE  •  '  TO  Q  :  IN  IT  1 

STORE  1  TO  Q: CHAR 
STORE  'QlSELCMDI  •  TO  Q:  SELCMD 

O'^FTFCT  ss  tlfll 

STORE  •$  (DATES,  36,5)  •  TO  Q  :  SELITEM 


STORE 

STORE 

STORE 

STORE 


STORE 
STORE 
STORE 
STORE 
CASE  Q: 
STORE 
STORE 
STORE 
STORE 
STORE 


'$  (DATES, 36,5)  •  TO  Q  :  SELITEM 
'"99999  *”  TO  QiSELPIC 
'  '  TO  Q i IN  IT  1 


STORE  T  TO  Ql CHAR 
STORE  'QlSELCMDI'  TO  Ql SELCMD 
CASE  Q:  S  ELECT  =  '  19* 

STORE  '3 (DATE  S, 4 1,5)'  TO  Ql SELITEM 
STORE  '"99999  *”  TO  QiSELPIC 
STORE  '  '  TO  QlINITI 

STORE  T  TO  Qi CHAR 
STORE  'QlSELCMDI'  TO  Q I SELCMD 
CASE  Ql SELECT  =  *  20* 

STORE  'S(DATES,21, 5)  •  TO  Q  iSELITEM 
STORE  '"99999  '''  TO  QiSELPIC 
STORE  '  »  TO  QlINITI 

STORE  T  TO  Ql  CHAR 

STORE  'QlSELCMDI'  TO  Ql SELCMD 
CASE  Q  I  S  ELECT  =  *21' 

STORE  '  $  (D  ATE  S ,3  1 , 5)  '  TO  Q  :  SELITEM 
STORE  '"99999  '  r'  TO  QiSELPIC 
STORE  '  '  TO  QlINITI 

STORE  T  TO  Ql CHAR 
STORE  'QlSELCMDI'  TO  QlSELCMD 


STORE 
STORE 
STORE 
CASE  Q  i « 
STORE 
STORE 
STORE 
STORE 
STORE 


ISELITEM 

C 


STORE  'QlSELCMDI'  TO  QlSELCMD 
CASE  Ql SELECT  =  '22' 

STORE  '$  (DATES, 46,5)  '  TO  Q  I  SELITEM 
STORE  '"99999  "'  TO  QiSELPIC 
STORE  '  '  TO  QlINITI 

STORE  T  TO  Ql  CHAR 
STORE  'QlSELCMDI'  TO  QlSELCMD 
CASE  Q:  S  ELECT  =  *23* 


STORE 
STORE 
STORE 
CASE  Os' 
STORE 
STORE 
STORE 
STORE 
STORE 
CASS  Ql : 
STORE 
STORE 
STORE 


ELECT  =  '23* 
' EOCNO '  TO  Q 
" • XXXXX  X99 9  9 

i 

T  TO  Q: CHAR 
'QlSELCMDI  ' 
ELECT  =  '24' 
'BEPCON*  TO 
"•XXXXX  X9999 


I SELITEM 

9999'  "  TO  QiSELPIC 
•  TO  QlINITI 

TO  QlSELCMD 

OiSELITEM 
99'"  TO  QiSELPIC 
'  TO  QlINITI 


STORE  T  TO  Q:  CHAR 
STORE  'CiSELCMDI'  TO  Q: SELCMD 
CASE  Q: SELECT  =  ' 25' 


iXOrii  'faLfl'  I 

STORE  "'XXXXXX 
STCRE  1  ' 

STORE  1  T^  Ql  C 
STCRE  '  C I S ELC M 
CASE  Q: SELECT  = 
STCRE  'SUM'  TO 


•FSCH*  TO  Q:  SELL  I  Sil 
•"  XXXXXX'"  TO  QiSELPIC 
*  *  TO  Q : I X I T 1 

<T  <r<  ^  Q  ;  C  H  A  c 

'CiSELCMDI '  TO  Q : SELCM D 
ELECT  =  '26' 

•SUM'  TO  Q  :  S  ELITEM 

"' XXXXX  X99AXXXXXXXX' "  TO  QiSELPIC 

»  •  TO  Q: INIT 1 


STORE  "'XXXXXX9 
STCRE  • 

STORE  1  TC  Q: 
STCRE  'QlSELC 
CASE  Q: SELECT  = 
STCRE  '  CR'  TO 


T  TC  Q: CHAR 
1  CiSELCMDI  • 


•  27* 

Q :  S  ZLIT  El 


Q: SELCMD 


STORE  "'A*"  TO  Q :  SELPIC 
STORE  '  '  TO  Q :  I  NIT  1 
STCRE  T  TO  Q: CHAR 
STORE  '  Q: SELC  MD 1 '  TO  Q: SELCMD 
CASE  Q:  SELECT  =  '2  8' 

STORE  'SCR'  TO  Q : SELITEM 
STCRE  "'XXX'"  TO  Q:SELPIC 
STORE  '  '  TO  QtINITl 

STCRE  T  TO  Q:  CHAR 
STORE  '  Q : SELC  MD 1 '  TO  Q: SELCMD 
CASE  Q:  S  ELECT  =  '29' 

STORE  '  SM '  TO  Q:  SELITEM 
STORE  '"AX'"  TO  Q:SELPIC 
STORE  '  '  TO  QJINITI 

STCRE  T  TO  Q: CHAR 
STORE  '  Q: SELC  MD 1 '  TO  Q: SELCMD 
CASE  Q:SELECT  =  '31* 

STORE  'C9Q*  TO  Q :  SELITEM 
STCRE  '"X"'  TO  Q  :S ELPIC 
STORE  '  '  TO  Q: INIT1 
STORE  T  TO  Q: CHAR 
STORE  'C:SELCMD1*  TO  Q: SELCMD 
CASE  Q: S  ELECT  =  '32' 

STORE  'DEF'  TO  Q : SELITEM 
STORE  "'99'"  TO  QiSELPIC 
STORE  '  '  TO  Q:INIT1 

STORE  T  TO  Q:  CHAR 
STORE  'CiSELCMDI*  TO  Ql SELCMD 
CASE  Q  :  S  ELECT  =  '33' 

STORE  '  VLC '  TO  Q  :  SELITEM 
STORE  "'A'  "  TO  QiSELPIC 
STORE  '  '  TO  QHNIT1 
STORE  T  TO  Q: CHAR 
STORE  'CiSELCMDI'  TO  Ql SELCMD 


CASE  Q I  SELECT  = 
STORE  '  ACTPT' 
STORE  '"  AXXXX 


STORE 
STORE  T 
STORE  ' 
CASE  Q:  S  E 
STORE  ' 
STORE  " 
STORE  6 
STORE  0 
STORE  0 
STCRE  F 
STORE  ' 


'  '  TO  QHNIT1 
T  TO  Ql CHAR 
'CiSELCMDI'  TO 
ELECT  =  '34* 
•ACTPT'  TO  Q : SI 
"'AXXXXX99999'" 


TO  Ql SELCMD 


I  SELITEM 
9  '  "  TO  QiSELPIC 
'  TO  Q I INIT 1 


T  TO  Ql  CHAR 

•CiSELCMDI'  TO  Q I SELCMD 
ELECT  =  '35' 

• SCRQTY '  TO  QlSELITEM 
"•999999"'  TO  QiSELPIC 


STORE  6  TO  Ql NR 

STORE  0  TO  Ql EEC 

STORE  0  TO  Ql  INIT1 

STORE  F  TO  Ql CHAR 

STORE  'CiSELCMDI'  TO 
:ASE  Q  I  S  ELECT  =  '36' 
STORE  'WHO'  TO  QlSEL 
STORE  "'XXXX'  "  TO  Ql 
STORE  '  '  TO  Q I  I 


C  MD 1 '  TO  Ql SELCMD 
=  '36* 

TO  QlSELITEM 
'  "  TO  QiSELPIC 


A  .  ruu 


Ql INIT1 


STORE  *Q:SELCMDt*  TO  Q: SELCMD 
CASE  Q  :  S  ELECT  =  *  37* 

STORE  '  CTYIS S  '  TO  Q :  5EL ITEM 
CTCIlS  *'•  59^9  9  9*  "  /:*S,7LnTC 


ST  ORE 

6 

TC 

'  Jl  • 

N  S 

STORE 

c 

TO 

0  • 

EEC 

STORE 

c 

TO 

0: 

INTT1 

STORE 

f 

TO 

V  l 

CHAR 

STORE  6  TO  i:NR 
STORE  'C:SELCMD2'  TO  Q : SELCM D 
CASE  Q:  SELECT  =  *38* 

STORE  •  CTYREC 1  TO  Q:SELITEM 
STORE  ” * 99999  9  * "  TO  Q:SELPIC 
ST  ORE  6  TO  Q: NR 

STORE  0  TO  Q: DEC 

STORE  0  TO  Q: INIT1 

STORE  F  TO  Q: CHAR 

STORE  6  TO  Q: NR 

STORE  ' Q : S EL C  M D 2 '  TO  Q: SELCMD 
CASE  Q :  S  ELECT  =  *39* 

STORE  'CTYSTK*  TO  Q : S  EL IT  E  M 
STORE  ”*99999  9*”  TO  Q:SSLPIC 
STORE  6  TO  Q:  NR 

STORE  0  TO  Q: EEC 

STORE  0  TO  Q: INIT1 


STORE  F  TO  Q: CHAR 
STORE  6  TO  Q:  NR 
STORE  '  C : S  ELC  MD2 '  TO  Q: SELCMD 
CASE  Q: SELECT  =  *40* 


STORE  •  EEFV'  TO  Q: SELITEM 
STORE  ''•A"'  TO  Q  :  SELPIC 
STORE  "  ”  TO  CilNITI 
STORE  T  TO  Q: CH AR 
STORE  *  0 :S  ELC  MD2 '  TO  QlSELCMD 
CASE  Q:  SELECT  =  '4  1* 


STORE 

STORE 

STORE 

STORE 

STORE 


•EEFR*  TO  Q:  SELITEM 
'"A"'  TO  Q:SELPIC 


Is  CHAR 


I  NIT  1 


TO 

T  TO  Q: 

*C:SELCMD2*  TO  Q: SELCMD 
CASE  Q: SELECT  =  *42' 

STORE  'ITEM'  TO  Q:  SELITEM 
STORE  "'A'"  TO  Q : SELPIC 
STORE  11  '•  TO  Q :  INIT1 
STORE  T  TO  Q: CHAR 


STORE  *  C :S ELCMD2  *  TO  Q: SELCMD 
CASE  6:  SELECT  =  '43' 

STORE  'OVER'  TO  6:  SELITEM 
STORE  ”*99999 *"  TO  Q: SELPIC 
STORE  ”  "  TO  Q : INIT1 

STORE  T  TO  Q: CHAR 
STORE  'C:SELCMD2'  TO  Q:  SELCM  D 
CASE  Q: SELECT  =  *44* 

STORE  '  CTF  '  TO  Q  :  S  ELITEM 
STORE  "* A 9 999 ’ ”  TO  Q: SELPIC 
STORE  "  ”  TO  Q : INIT1 

STORE  T  TO  Q: CHAR 
STORE  ' C ! S ELC M D2 '  TO  Q: SELCMD 
CASE  Q:  SELECT  =  *45* 


STORE  ‘GOV*  TO  Q : SELITEM 
STORE  *’*X*"  TO  QlSELPIC 
STORE  *'  "  TO  Q:  INIT1 
STORE  T  TO  6: CHAR 
STORE  '  C  :  S  ELC  M  D2  *  TO  Q:  SELCMD 
CASE  Q:  SELECT  *  *46' 

STORE  'WUC'  TO  Q : SELITEM 
STORE  ”'XXXXXXX'"  TO  Q:  SELPIC 
STORE  ”  ”  TO  QiINITl 

STORE  T  TO  Q: CHAR 


STORE  '  Q: 3ELCMD2 •  TO  Q: SELCMD 
CASE  Q  :  S  ELECT  =  '  uH 

STORE  '  DI 5  '  TO  Q:S2LIT33 
STORE  '"AA"'  TC  QiSZLPIC 
STORE  "  "  TO  Q  :  INIT  1 

STORE  T  TO  Q: CHAR 
STOP.'6'  •  Q:S ELCMP2'  Tr  Q: SELCMD 
CASE  Q;  S  ELECT  =  '46' 

STORE  '  EETC '  TO  Q: SELITEM 
STORE  " * 9  1  "  TO  Q  :S ELPIC 
STORE  "  "  TO  Q:INIT1 
STORE  T  TO  Q: CHAR 
STORE  ' C : SELC  MD2 '  TO  Q: SELCMD 
CASE  Q :  S EL ECT  =  '49' 

STORE  '  ACTTKN  *  TO  Q: SELITEM 
C'T'QDT?  tl  *  A  A  -  *  "  TC  Q  •  ™  TC 

STORE  "  ‘  "  TO  Q:  INIT  1 

STORE  1  TO  Q: CHAR 
STORE  * Q : SELC MD2  *  TO  Q: SELCMD 
CASE  Q :  S  ELECT  =  '  50' 

STORE  * COSTC '  TO  Q: SELITEM 
STORE  ,M  A'  "  TO  Q  :S EL?  IC 
STORE  "  "  TO  Q:  I  NIT  1 
STORE  1  TO  Q:  CHAR 
STORE  'C:SELCMD2*  TO  Q: SELCMD 
c  asp  n  •  <?et  fct  =  'Si* 

STORE  'STATUSC'  TO  Q: SELITEM 
STCRE  "•AA"*  TO  Q:SELPIC 
STORE  "  "  TO  Q : INIT  1 

STORE  T  TO  Q: CHAR 
STORE  *C: SELCMD2 '  TO  Q: SELCMD 
CASE  Q:  SELECT  =  *52' 

STORE  'CAUSEC'  TO  Q: SELITEM 

STORE  '"A"'  TO  Q:SELPIC 

STORE  "  "  TO  Q:  I NIT1 

STCRE  T  TO  Q: CHAR 

STORE  * Q : SELC MD2 1  TO  Q: SELCMD  • 

CASE  Q:SEI£CT  =  '53' 

STORE  'ACTDISP*  TO  Q:  SELITEM 
STCRE  "'A'  "  TC  QiSELPIC 
STORE  "  "  TO  Q  :  I  NIT  1 
STORE  T  TO  Q: CHAR 
STORE  ' C: SELC  MD2 '  TO  Q : SELCMD 
CASE  Q :  S ELECT  =  *54' 

STORE  '  MFG  '  TO  Q  :  SELITEM 
STORE  "»XXXXXXXXXXXXXXXX'  "  TO  Q:SELPIC 
STORE  "  "  TO  Q : INIT  1 

STORE  T  TO  Q:  CHAR 
STORE  1 C :  SELC MD2  *  TO  Q-.SSLCMD 
CASE  Q:SELECT  =  '5  5' 

STORE  'LOT1  TO  Q :  SELITEM 
STCRE  "'XXXXXXXXX' "  TO  Q:SELPIC 
STORE  "  "  TO  Q :  I  NIT  1 

STORE  T  TO  Q: CHAR 
STORE  '  C : SELC  MD2 '  TO  Q: SELCMD 
CASE  Q:  S  ELECT  =  '56' 

STORE  'DITEM'  TO  Q : SELITE  M 

STORE  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  »" ; 

TO  Q: S  ELPIC 
STORE  " 

TO  Q:  I  NIT  1 
STORE  T  TO  Q: CHAP 
STORE  ’  C: SELC  MD2 1  TO  Q: SELCMD 
ENCCASE 

*****  Display  Selection  Relations  and  Accept.  Relationship 
*****  ana  initial  Search  Values 

IF  Q:  SELECTO  '00  •  .AND.  Q :  S  EL  ECTO  '  3  0  '  .AND.; 
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Q:  SELECTO  '58  ' 

STCRE  Q: I T  EM  ♦  1  TO  Q  :  IT  EM 
ERASE 

STCRE  1  1  TO  Q:  SELECT 

a  Co,0  SAY  ’Relations  a  -  Include  b  -  Lx-: 
a  06,12  SAY  'c  -  Range  d  -  Equal' 

0  C7,  10  SAY  »  e  -  Set  Equal  *  d  -  Lass  Tha: 

♦  •  q  -  Greater  Than* 

3  10,10  SAY  'Enter  Relationship  for  Selection 
Q  :  SELECT  PICTURE  'A* 

READ 

*****  Validate  Entered  Value 

DO  WHILE  !  (Q :  S  ELECT)  <  *  A*  .OR.  !(Q:SELZC?t  > 
1  23,13  SAT  'Enter  Relationship  as  Dicplav. 

♦  'Above  (A  -  G)  '  +  CHR  (7) 
a>  10,10  SAY  'Enter  Relationship  for  Select: 
GET  Q: SELECT  PICT  *  a ' 


READ 

ENCDC 

£  23,  18  SAY  • 

+  • 


If  Range  Selected,  Accept  Two  initial  Values 


'  f  C  *5  ?L  EC^  \  -  '  C' 

STORE  Q  :INlT  1  TO  Q:INIT2 
a  14,10  SAY  'Enter  MINIMI 


a  14,10  SAY  'Enter  MINIMUM  Value  Allowed  • 
GET  Q  :  IN  IT  1  PICT  &Q:SELPIC 

RE  AD 

a  16,10  SAY  'Enter  MAXIMUM  Value  Allowed  • 
GET  Q : IN IT2  PICT  SQ : S  ELPIC 

READ 


***  *  * 


***  *  * 
***** 


***** 


Ensure  That  Values  are  Properly  Ordered 

IF  Q:  IN  IT  1  >  0.-INIT2 

STORE  Q  :  INlT  1  TO  C:TEMP 
STORE  Q :  INIT2  TO  Q:INIT1 
STORE  Q : TEMP  TO  Q:INIT2 
RELEASE  Q:TEMP 
E  N  DIF 

If  Character  Field,  Place  Quotes  Around  Initial 
Value  (s) 

IF  Q :  C H  AR 

STORE  "'  "♦!  (Q:I  NIT  1)  ♦  "  TO  QiINITI 
STORE  "  '  (Q:  I  NIT  2)  "  TO  Q:INIT2 

ELSE 

Fermat  Numerics  to  be  Characters  For  Code  Generation 


STORE  STF  (Q:INIT1,Q:NR,Q:DEC) 


STORE  Q 


..  M&. 

STORE  STE  (Q:I:JIT2,Q:NR,Q:DSC) 
STORE  Q  :  I NIT2T  TO  Q-.INIT2 
RELEASE  Q:INIT1 1,  Q:INIT2T 
ENDIF 


TIT  TO 


Q :NR, Q: 
Q: I N IT ‘ 
Q: NR, Q: 
Q: ISITJ 


TO  Q: INIT  1  T 
TO  Q: I  NIT  2T 


*****  Form  Partial  Command  Line 


IF  SO : S  ELCM E  =  '  • 

STORE  Q  :  SELITEM ♦' > • +Q: INIT 1 ♦'. AND. '  +  Q : SEIITEM  +  ; 

'  <  '  +Q  :INI  T2  TO  SQ  :SELCMD 

ELSE 

STORE  SQ  :  SELCMD  +  '  . AND. ' +Q: SELITEM  +  ' > • *Q : INIT1 ; 

♦ '. AND. ' +Q:S ELITEM+' <• +Q : INIT2  TO  SQ : SELCMD 
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ENCIF 


*****  Accept  Selection  Value?  For  Query  (Single  V  a  1 4 ; ) 

2  12,10  SAY  ‘Enter  Value  tor  Selection  '  GET; 

Q: I  NIT  1  PICT  SQiSLLPIC 

READ 

*****  if  character.  Place  Quotes  Around  Initial  Value 
IF  QtCHAR 

STORE  " '  (Q:  I  Nil  1)  "  TO  Q:INIT1 

ELSE 

*****  Fermat  Numerics  to  be  Characters  For  Cede  Generation 


ENCIF 

*****  perm  Partial  Command  Line 

*****  command  Line  Formation  Uses  Indirect  Addressing  to 
*****  point  to  the  Location  Of  the  Command  Line 

*****  if  Previous  Line  Has  Eeen  Created,  Join  Together 
*****  with  an  AND 

IF  SQrSELCND  <>  '  • 

STORE  &Q:SELCME+‘  .  AND.  •  TO  &Q:SELCMD 
ENCIF 
DC  CASE 

CASE  l  (Q  :  SELECT  )  =  *  A  • 

STORE  6Q:SELCMC-Q;  SELITSM+' =' +Q;  INIT1  TO  SQ  :  5  ELC  3D 
CASE  ! (Q*CELECT)  =  ' B* 

ST6HE*8Q:SELCaD-Q;SELITEtl  +  «  <>• +Q;  INIT1  TO  &Q :  5  ELCM  D 
CASE  ’  ( Q  :  SELECT  )  =  •  D' 

STORE  SQ:SELCHD-Q:SELITEM+'='+Q:INIT1  TO  & Q : S E LC M D 
CASE  !  (Q  :SELECT )  =  ' E' 

STORE  SO:  SELCMD_Q:SELITEM+'  <>'  +Q;  INIT1  TO  SQrSELCKD 
CAS  E  |  ( Q  •  SELECT )  =  '  F ' 

STORE  SO: SELC3D-Q: SSLITEM+' <»*Q:INIT1  TO  SQjSELCMD 
CASE  !  ( Q  :  SELECT )  =  'G' 

STORE  SQ:SELCMD-Q:SELITEM-M  >»  *Q:  INIT1  TO  &  Q :  S  E  LC  M  D 
ENCCASE 
ENCIF 

STORE  '00'  TO  Q:SELEC  T 
ENDIF 

ENCIF 

ENCIF 

ENDDO 

♦  SET  COLCR  TO  1  1  2,  3 

RELEASE  Q : S  ELIT  E  N,  Q:SELPIC,  Q:CHARr  Q:INIT1,  Q:INIT2,  Q: NR 

STORE  F  TO  Q:  DAT  ESEL 

STORE  'CASE  *  TO  Q : FLDCMD1 

STORE  'CASE  '  TO  Q : F LCCMD2 

STORE  '  '  TO  Q:  FIELD 

STORE  0  TO  C:IT  E  M 

STORE  »0C»  10  Q:  SELECT 

STORE  •  '  TC  QiCHOSEN 

*****  Display  Selection  3$nu  to  Allow  Selection  of  Items 
*****  10  Be  Displayed  -  Displays  First  Screen 

CO  WHILE  Q :  ITEM  <=  9  .AND.  QiSELECT  <>  '58' 

IF  Q:  SELECT  =  '00' 

ERASE 

2  2,21  SAY  'Enter  Field  Selection  For  This  Query' 


:  N  R,  Q :  DEC)  TO  Q:INIHT 
:  INIT1 


STORE  ST  F  (Q  :  INI  T 1 
STORE  Q  :  INITIT  TO 
RELEASE  C:INIT1  I 
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3  2,19  SAY  '(A  Paxima  cf  10  Fields  May  Be 

3  4  ,  0  SAY  ' - ‘  ; 

+  < - 

d  5,0  SAY  ‘Data  Elements' 

1  5  ,  1 5  S  A  Y  '  !  ' 

ir.  <r  f  o*  ,-*/“*  r  /">  -nr)  1  1  7  •“ 

3  5,2  7  SAY  '  5  6  End  clement  Select’ 
d  5,53  SAY  '  59  Aoandon  Quer  v' 

*  SET  COLOR  TO  1  12,  3 

a  5,5  1  SAY  '  !  • 
a  6,25  SAY  '  !  • 

3  6 , 5  1  S  A  Y  '  !  ' 
a  7,1  say  '0  1  Case  N  umber ' 
d  7,25  SAY  '!  11  Origin  Code' 

a  7,51  SAY  •!  21  Interim  Rater' 

a  7,71  SAY  ' t  Date' 

a  8,1  SAY  '02  Cog' 
a  8,25  SAY  •!  12  Type  Document' 

a  8,51  SAY  '!  22  Or  lain  Prep  Date' 

a  9,1  SAY  '03  NSN ' 

a  9,25  SAY  '!  13  Discovery  Date  I'; 

*•  '  23  Document  Number' 

a  10,  1  SAY  '04  Category' 
a  10,25  SAY  '!  14  Date  Received* 

a  10,51  SAY  '!  24  Report  Contro' 

a  10, 71  SAY  '1  Number  ' 
a  11,1  SAY  '05  Nomenclature' 
a  11,25  SAY  '  !  15  Open  Date' 

a  11 , 51  SAY  '  !  25  F  SCM ' 

a  12,1  SAY  '06  QIC  of  Origin' 
a  12,25  SAY  •!  16  Transmittal  Date  !'; 

♦  '  26  Contract  Number' 

a  13,1  SAY  '07  Unit  of  Issue' 
a  13,25  SAY  '  !  17  IK  Response  Date  !'; 

+  '  27  Credit  Code' 

a  14,  1  SAY  '08  Unit  Fries' 
a  14,25  SAY  '  .'  18  Close  Date' 

a  14,51  SAY  ' !  28  Screening  Code' 

a  15,1  SAY  '09  Quantity  Deficient 

♦  '  19  Reopen  Date  !  29  SMIC' 

a  16,1  SAY  MO  Extended  Price' 
a  16,25  SAY  '  !  20  Screen  Report* 

a  16,46  SAY  'Date  !  30  Next  Page  of  Elements' 

a  17 ,0  SAY  ' - '  ; 

♦  i - i 

*****  Display  Previously  Selected  Fields 

a  19,0  SAY  'Fields  Currently  Selected  '+  Q:CHOSEN 

a  21,27  SAY  'Enter  Field  Number  •  GET  Q:SELECT  PICTURE  '99' 

READ 

*****  Validate  Field  Selection 

DO  WHILE  Q  :SELECT  <  '00'  .OR.  Q :  S  ELECT  >  '59* 

a  23,  26  SAY  'Select  From  Above  (00  -  59)'+CHR(7) 
a  21,27  SAY  'Enter  Field  Number  '  GET  ; 

QzSELECT  PICTURE  '99' 

READ 

ENDDC 

a  2  3,  26  SAY  '  ' 

ELSE 

*****  Display  Second  Screen  For  Selection 

IF  Q: SEL  ECT  =  '30' 

ERASE 

a  2,21  SAY  'Enter  Field  Selection  For  This  Query' 
a  3,19  SAY  '  (A  Maximum  of  10  Fields  May  3e  Selected)  ' 
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a 

4,0 

SAY 

1  - 

— 

-• 

+  •  - 

- - 

-  - 

— 

— 

'JJ 

5,0 

S  AY 

*  C?.t  a 

a 

5,25 

SAY 

i 

f « 

C  V 

T  CO 

LCR 

rn  p 

112 

a 

5,27 

SAY 

1 

58 

a 

5,53 

SAY 

1 

0  ^ 

SET  COLOR 

TO 

1 1 

a 

5,51 

SAY 

1 

1  t 

a 

6,25 

SAY 

« 

!  i 

a 

6,51 

SAY 

1 

!  t 

a 

7, 1 

SAY 

•  3 

i 

9' 

a 

7,25 

SAY 

t 

1 

4i 

End 
A  bdi: 


Element.  Select* 
don  Query1 


+  • 

8.1  S  AY  *22 

6.25  SAY  *  ! 

+  • 

9.1  SAY  '23 

9.25  SAY  '! 

+  * 

10.1  SAY  '34 
10,  25  SAY  * ! 

10.51  SAY  '! 

11.1  SAY  '35 

11.25  SAY  "! 

+  « 

12.1  SAY  '36 
12,  25  SAY  '  ! 

12.51  SAY  '! 

13.1  SAY  *37 

+  '  46 

13.58  SAY  *L 

14.1  SAY  '38 

♦  '  47 

14.58  SAY  'D 

15.1  SAY  '39 

+  '48 

15.58  SAY  'W 

16.1  SAY  '58 

+  •  59 

16.51  SAY  '  ! 
17,0  SAY  '  — 


Region ' 

Deficiency  Ver 
Action  Code' 


'!  4 1 "  Deficiency  Resp  !'; 

'  50  Cost  Coda' 

23  Vendor  Liab  Code' 

' !  42  New-Rep air/Ovhl  ; 

'  51  Status  Code' 

'34  Action  Point1 
* !  43  Date  Mfg/Ovhl' 

'!  52  Cause  Code' 

'35  Screen  Quantity' 

"»  44  opn  Time  at  Failure!"; 

+  "  53  Action  Dis'n" 

'36  Analyst  Code' 

'  !  45  G FM ' 

' !  54  Part  Number' 

'37  Quantity  Inspected  !': 

46  Work  Unit  Code  I  55' 

'Lot/S  er/Batch ' 

'38  Quantity  Received  !  '; 

47  Discovery  Code  !  56' 

'Def  Item' 

•39  Quantity  in  Stock  !  '; 

'48  Return  Code  !  57' 

'  Warranty ' 

'58  End  Element  Select  I'; 

59  Abandon  Query' 

' !  00  Prev  Page  of  Elements' 


READ 


0  SAY  'Fields  Currently  Selected  '♦ 
27  SAY  'Enter  Field  Number  1  GET  ; 

Q : SEL  ECT  PICTURE  '99' 


QlCHOSEN 


*****  Validate  Field  Selection 


DC  WHILE  Q:  SELECT  <  '00'  .OR.  Q : S  ELECT  >  '59' 

3  23  ,26  SAY  'Select  From  Above  (00  -  59)'+CHR(7) 
S  21,27  SAY  'Enter  Field  Number  '  GET  ; 

Q: SELECT  PICTURE  '99 ' 

READ 

ENDDO 

a  23,26  SAY  '  ' 

ELSE 


****  * 


****  * 


Begin  Creating  Code  For  Fields  Selected 
DO  CASE 

If  59  Entered,  Release  All  Local  Memory  and  Return 


CASE  Q; SELECT  =  '59' 

RELEASE  ALL  LIKE  Q:* 
RETURN 


,V.V  V. 


*****  Store  Selection  Name  tc  QrSELITEM 

*****  store  Field  Selection  Pointer  To  Q: FLDCMD 

CASE  Q : S  ELECT  =  »01' 

STORE  'CASE*  TO  Q: S  EL IT  EM 
STORE  ’  QjFLDCtlDl  *  TO  Q:  FLDCMD 
CASE  Q: SELECT  =  ’02’ 

STORE  1  COG ’  TO  6 : SELITEM 
STORE  •  C : FLDC  MDT '  TO  Q: FLDCMD 
CASE  Q  :  S  ELECT  =  '03* 

STORE  '  NSN '  TC  Q  :  SELITEM 
STORE  *C:FLDCMD1'  TO  Q:  FLDCMD 
CASE  Q: SELECT  =  '04* 

STORE  'CAT'  TO  Q :  SELITEM 
STORE  •C:FLDCMD1‘  TO  Q: FLDCMD 
CASE  Q  :  S  ELECT  =  '05‘ 

STORE  ’NOMEN’  TO  Q: SELITEM 
STORE  '  C  :  FLDC  MD1  *  TO  Q:  FLDCMD 
CASE  Q: SELECT  =  '06' 

STORE  '  UIC'  TO  Q  : SELITEM 
STORE  ' Q: FLDC  MDT •  TO  Q: FLDCMD 
CASE  Q:  S  ELECT  =  '07* 

STORE  ’UI’  TO  Q:  SELITEM 
STORE  '  C : FLDCMD1 1  TO  Q : FLDCM D 
CASE  Q: SELECT  =  '08' 

STORE  '  UPRC*  TO  Q:  S  ELITEM 
STORE  ’  C : FLDC  MD 1 '  TO  Q: FLDCMD 
CASE  Q : S  ELECT  =  '09* 

STORE  •  QTYDEF  '  TO  Q;  SELITEM 
STORE  '  £:FLDCMD1  *  TO  Q:  FLDCMD 
CASE  Q: SELECT  =  *  1  O' 

STORE  '  EPRC'  TO  Q:  SELITEM 
STORE  '  C J  FLDC  MD 1 '  TO  Q : FLDCMD 
CASE  Q:  S  ELECT  =  Ml' 

STORE  1  CRG  '  TO  6  :  SELITEM 
STORE  '  C : FLDC  MDT •  TO  Q : FL  DCM  D 
CASE  Q: SELECT  =  '12* 

STORE  * DOC *  TO  6  :SELITEM 
STORE  *  C: FLDC  MDT •  TO  Q: FLDCMD 
CASE  Q :  S  ELECT  =  *  1  3» 

STORE  ’  2  (DATE  S,  1,5)’  TO  Q  :  SELITEM 
STORE  'C:FLDCMD1'  TO  Q:  FLDCMD 

CASTolES^‘MDATi  S,  1  6,5)  '  TO  Q  :  SELITEM 
STORE  '  C :  FLDC  MD1  '  TO  Q:  FLDCMD 

CASTORES^MDATES.  1  1, 5)  '  TO  Q:  SELITEM 
STORE  'C:FLDCMD1'  TO  Q :  FLDCMD 

CASTORES  'J  (DATis,  16,5)  ’  TO  Q  :  S  ELITE?! 
STORE  ’ 0 : FLDC  MDl '  TO  Q: FLDCMD 

CASTO^ES^$ (DAT! S,26,5)  '  TO  Q : SE LITE? 

STORE  'CiFLDCMDI'  TO  Q:  FLDCMD 
CASE  Q: SELECT  =  ’18* 

STORE  1  $  (DATE  S  ,  3  6 , 5 )  '  TO  Q:  SELITE? 
STORE  '  ClFLDCMDl  '  TO  Q:  FLDCMD 
TA ^ F  0* SELECT  =  '19' 

STORE  ’$(DATES.41,5)  •  TO  Q  :  S  ELITE? 
STORE  '  0 : FLDC  MD 1  ’  TO  Q: FLDCMD 
CASE  Q : S  EL  ECT  =  '20' 

STORE  ’$  (DATES. 21, 5)  '  TO  Q:  SELITEt 
STORE  ’  Q:  FLDC  MDl  '  TO  Q:  FLDCMD 
ricr  O-SFLECT  =  '21* 

STORE  '  $  (DATE  S<31,5)  '  TO  Q:SELITEI 
STORE  '  0 : FLDC  MDl *  TO  Q : FL  DCM  D 
f'l  c  v  O'S^IECT  =  •22* 

STORE  ’$(DATES,46,5)'  TO  Q:  SELITEI 
STORE  ’OiFLDCMDI'  TO  Q:  FLDCM  D 


TO 

Q :  FL 


:  SELITEM 
CMD 


TO  Q :  £ 
) :  FLDC? 


: SELITEM 
CMD 


TO  Q:  SELITEM 
Q:  FLDCMD 

TO  Q: SELITEM 
Q:  FLDCMD 


TO 

Q:  FL 


Q : S  ELITEM 
DCMD 


TO  Q: SELITEM 
Q: FLDCMD 


TO 

Q:  FL 


Q:  FL 


:  S  ELITEM 
CMD 

: S  E  LITEM 


Q :  S  E 
DCM  D 


CASE  0 :  S  ELECT  =  '23*  ^ 

STORE  '  EGCNO '  TO  QcSSLIToM 
STORE  ' C : FLDC M E  1  «  TO  O:  FLDCMD 
C?^E  ’'•S~^ICT  =  •  2 u ' 

‘STCnS  ’FE?CC>?'  TC  Q:SSLITEK 
STORE  *C:FLDCMD1 '  TO  Q: FLDCMD 

c«se  a: select  =  •  <.5‘  „ 

STORE  'FSCM'  TO  Q-.S2i.ITid 
STORE  '  C : FLDC  MD1  '  TO  Q: FL  DCM  D 
CASE  Q: SELECT  =  *26' 

STORE  'SUM'  TO  Q :  SELITEM 
STORE  ’ C: FLDC  MD * '  TO  Q: FLDCMD 
CASE  Q  :  S  ELECT  =  '27' 

STORE  'CS'  TO  Q: SELITEM 
STORE  »q:FLDCMD1f  TO  Q:  FLDCMD 
CASE  Q: SELECT  =  »26* 

STORE  'SCR'  TO  Q :  SELITEM 
STORE  'Q:FLDCMD1«  TO  Q: FLDCMD 
CASE  Q : S  ELECT  =  '29' 

STORE  'SM'  TO  Q: SELITEM 
STORE  'ClFLDCMDI 1  TO  Q: FLDCMD 
CASE  Q: SELECT  =  '31* 

STCRE  'C9Q'  TO  Q :  SELITEM 
STORE  *C: FLDC  MD  1 '  TO  Q: FLDCMD 
CASE  Q:  S  ELECT  *  '32' 

STORE  'DEF'  TO  Q :  SELITEM 
STORE  ' C :  FLDCMDT  1  TO  Q:  FLDCMD 
CASE  Q:  SELECT  =  *33' 

STCRE  '  VLC '  TO  Q:SELITEM 
STORE  'C: FLDC  MD 1 '  TO  Q : FLDCMD 

CASTO§ESHcTPt"»  T04Q:  SELITEM 
STORE  '  C :  FLDC  MD1  1  TO  Q:  FLDCMD 
CASE  Q: SELECT  =  1 35' 

STCRE  '  SCRQTY  '  TO  Q  :  S ELITEM 
STORE  ' C : FLDC  MD1  '  TO  Q: FLDCMD 
CASE  Q:  SELECT  =  '36' 

STORE  •  WHO  •  TO  Q  :  SELITEM 


Q  :  SELITEM 
31  •  TO  Q: FLDCMD 


CASE 

STO 


STORE  '  C : FLDC  MD1 '  TO  Q: FL  DCM  D 
CASE  Q: SELECT  =  '37* 

STORE  '  QTYINS  '  TO  Q :  S  EL  IT  EM 
STORE  '  C: FLDC  MD2 '  TO  Q: FLDCMD 
CASE  Q:  SELECT  =  '38' 

STORE  ' CTYREC '  10  Q : SELITEM 
STCRE  '  C:FLDCMD2  1  TO  Q:  FLDCMD 
CASE  Q :  SELECT  =  '39' 

STORE  '  QTYSTK  '  TO  Q;  SELITEM 
STORE  '  Q: FLDC  MD2 '  TO  Q: FLDCMD 
CASE  Q:  S  ELECT  =  '40* 

STORE  »EEFV'  TO  Q: SELITEM 
STORE  '  C : FLDC MD2  '  TO  Q :  FLDCM D 
CASE  Q:  SELECT  =  '4  1* 

STCRE  '  EEFR'  TO  Q:  SELITEM 
STORE  '0: FLDC  MD2 '  TO  Q: FLDCMD 
CASE  Q;  SELECT  =  '4  2' 

STORE  'ITEM'  TO  Q: SELITEM 
STCRE  »C:FLDCMD2'  TO  Q:  FLDCMD 
CASE  Q:  SELECT  =  '43' 

STORE  'OVER'  TO  Q:  S  EL  ITEM 
cipnD-p  th  n*PT.DCMD 


STORE 

STORE 


'Q: FLDC  MD2 


FLDCMD 


CASE  Q  :  S  El  ECT  =  '44' 

STORE  'OIF'  TO  Q :  SELITEM 
STCRE  '  C : FLDC  MD2 '  TO  Q: FL  DCM  D 
CASE  Q: SELECT  «  '45' 

STCRE  'GOV*  TO  Q  :  SELITEM 
STORE  'C:FLDCMD2'  TO  Q: FLDCMD 
CASE  Q  :  S  ELECT  =  '46' 

STORE  'WUC'  TO  Q :  SELITEM 
STCRE  '  Q  :  FLDC  M  D2  '  TO  Q  :  FL  DCM  D 


CAS  2  Ql  SELECT  =  '47' 

STORE  'CIS’  TO  0 :  SELITEM 
STORE  'Q:FLDCMD2  '  TO  Q:  FLDCMD 
CASE  0:  SELECT  =  'ug* 

STORE  •  5ETC '  TO  Q:  S ELIT  EM 
STORE  *  Q • FLDC “SZ ’  TO  Q: FLDCMD 
n*  ^  ti  FfT  =  r  a  q  i 

STORE  '  ACTTKN '  TO  Q : SELITEM 
STORE  •  Q :  F LDC  MD2  '  TO  Q:  FLDCMD 
CASE  QjSELECT  =  '50' 

STORE  1 COSTC *  TO  Q : S ELITEM 
STORE  *  0: FLDC  MD2 '  TO  Q: FLDCMD 
ri  qp  O'S^TFCT  =  'SI* 

STOSS  ^STATUS C *  TO  Q:  SE LITEM 
STOSS  '  Q  :  FLDC  SD2  *  TO  Q:  FLDCMD 
CASE  Q:  SELECT  =  '52* 

STORE  'CAUSEC '  TO  QjSELITEM 
STORE  ' Q: FLDC  MD2 1  TO  Q: FLDCMD 
CASE  Q: S  EIECT  =  '53* 

STORE  *  ACTDIS  F  '  10  QjSELITEM 
STORE  •  Q J  FLDC  MD2 1  TO  Q: FLDCMD 
CASE  Q :  S  ELECT  =  '54' 

STORE  *  KFG  '  TC  Q  :  S  ELITEM 
STORE  '  C : FLDC  MD* '  TO  Q: FLDCMD 
CASE  Q:  S  ELECT  =  '55' 

STORE  'LOT'  TO  Q :  SELITEM 
STORE  '  Q  :  FLDC  MD2  '  TO  QjFLDCMD 
CASE  Q :  S  ELECT  =  *56' 

STORE  'DITEM*  TC  Q : S ELITEM 
STORE  '  Q : FLDC  MD2 '  TO  Q: FLDCMD 
CASE  Q:  SELECT  =  '57* 

STORE  '  KNTY '  TO  Q: SELITEM 
STORE  'Q:FLDCMD2  '  TO  Q:  FLDCMD 
ENCCASE 

IF  QjSELECT  <>  '00'  .AND.  QJSELECT 
QJSELECT  <>  '5  8' 

STORE  Q J ITEM  ♦  1  TC  QjITEM 
IF  QJITEK  =  1 

STORE  QjSELECT  TO  Qj  CHOSEN 
STORE  QjSELITEM  TO  QiDISPLAY 


'30'  .AND.; 


.NOT.  QJDAIESEL 


STORE  QjSELITEM  TO  QiDISPLAY 
ELSE 

STORE  Q ;  CHOS  EN+  '  .  '+QJSELECT  TO  QjCHOSEN 
STORE  QJDISPLAY  +  '  r  '+Q:  SELITEM  TO  QiDISPLAY 
ENDIF 

IF  QjSELECT  <>  *01' 

IF  $  (QjSELITEM.  1,1)  =  '$'  .AND.  .NOT.  Q  :  I 
STORE  'DATES'  TO  QjSELITEM 
STORE  SQ:  FLDCMD- '  r ' +Q  j  SELITEM  TO  SQ: 
STCEE  '  '  TO  QjSELITEM 
STORE  T  TO  QjDATESEL 
E  LS  E 

IF  |(Q  JSELITEM.1,  1)  <>»  $ ' 

STORE  SQjFLDCMD-' , ' +Q  JSELITEM  TO 
ENDIF 
ENDIF 
ENDIF 

*****  Generate  Code  For  Field  Selection 
IF  QjFIELD  =  '  ' 

STORE  QjFIELD-QjSELITEM  TO  QjFIELD 
ELSE 

STORE  QjFIELD-' ,' -QjSELITEM  TO  QjFIELD 
ENDIF 

STORE  *00'  TO  QjSELECT 
ENDIF 
ENDIF 
ENDIF 
ENDDC 


SQjFLDCMD 


SQ:  FLDCMD 


***  *  * 


Release  All  Unnecessary  Memory  Variables 

RELEASE  Q :  F.  EPLY  ,  Q :  S  ELECT,  Q:  ITEM  ,  QrSZLITZM,  Q:S 
Q : ?  LDCMD ,  Q: CHOSEN 

STORE  Q  :  NEE  ASSZS  TO  QrLOOFCNT 

*****  If  Ecth  0?EN  and  CLOSED  Files  are  Selected 
*****  ihe  Execution  loop  Will  Ee  Run  Twice 

DO  WHILE  Q  :  LOO  PC  NT  >=  1 

*****  select  File  To  Ee  Used  In  This  Query 
IF  Q : FI LE  =  'O' 

STCRE  ' D :'*C: WHO- 'CPEN'  TO  Q: TEMP3 
ELSE 

STCRE  'D:'  +  C:  WHO-'CLOS'  TO  Q:  TEM  P3 
ENDIF 


T  r  r-  v  r* 

—  w  / 


*****  Generate  Executable  Cede  Tc  Perform  Query  Selection 
*****  check  to  See  If  The  Selection  Deals  with  The  First 
*****  Half  of  the  Data  Base 


IF  Q : SELCMD  1  <>  1  ' 

IF  Q:  FILE  =  '  0‘ 

STCRE  'USE  D: OPEN  1 'TO  SQrLINE 
STCRE  Q: C NTH  +  1  TO  Q : CNTR 
STCRE  'Q  :  L  '  +  SIR  (Q:  C  NTR  ,2)  TO  Q:  LINE 
ELSE 

STCRE  'USE  D:  CLOSE  1'  TO  SQrLINE 
STCRE  Q: CNTR  ♦  1  TO  Q : CNTR 
STCRE  'Q : L  '  +  STR (Q: C  NTR ,2)  TO  Q:  LIN E 
ENDIF 

STCRE  '  D  :'  +  C:  WHO  +  'IMP  1'  TO  Q:  TEMPI 
STCRE  '  COPY  TO  '  +  C:TEHP1  TO  &Q:LINE 
IF  Q  :  FLCCMD  1  <>  'CASE  ' 

STCRE  &Q : LINE+  '  FIELD  '  +  Q : FLDCMD1 ♦ '  FOR  1 +Q : SE1CHD1 ; 
TO  &Q : LINE 

ELSE 

STCRE  SQ :  LINE*  '  FOR  ' +Q: SELCMD1  TO  SQ  :LINE 
ENCIF 

STCRE  Q :  CNTR  +  1  TC  Q  :CNTR 
STCRE  '  Q  :L'  +  STR ( Q  :  CNTR, 2 )  TO  Q:LINE 
ENDIF 

*****  Generate  Executable  Cede  To  Perform  Query  Selection 
*****  check  to  See  If  The  Selection  Deals  With  The  Second 
*****  Half  of  the  Data  Base 


IF  Q : SELCMD  2  <>  '  ' 

IF  O'  FIL  F  *  '  C' 

STCRE  'USE  D:  0FEN2'  TO  SQ:  LINE 
STCRE  Q: CNTR  ♦  1  TO  Q :CNTR 
STCRE  'Q  :  L  '  ♦  STR(Q:CNTR,2)  TO  Q:  LINE 
ELSE 

STCRE  'USE  D : C LOSE 2 '  TO  SQ : LI NE 
STCRE  Q: CNTR  +  1  TO  Q : CNTR 
_  STCRE  'Q :  L '  ♦  STR  (Q:  C NTR  ,  2)  TO  Q:  LINE 
ENDIF 

STCRE  ' B :'  +  C: WHO+  'IMP 2'  TO  Q: TEM  P2 
STCRE  'COPY  TO  '+Q:TEM?2  TC  S Q : LIN E 
IF  Q : FLCCMD 2  <>  'CASS  ' 

STCRE  SQ : LINE+  '  FIELD  ' + Q : FLDCM D2 * '  FOR  •♦Q:SELCMD2; 
TO  SQrLINE 

ELSE 

STCRE  SQ :  LINE*  '  FOR  • +Q : S ELCM D2  TO  SQrLINE 
ENCIF 

STCRE  Q: CNTR  ♦  1  TC  QrCNTR 

STCRE  'Q:L'  +  STR (Q  rCNTR, 2)  TO  QrLINE 


*****  Generate  Cgas  tc  Join  Toge~.ier  3cth  Halves  c: 
*****  selected  Files 


IF  Q  :  £  E LC 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

ELSE 

IF  QjJ 


1  <>  ' 
ELECT  P 
CNT  R  + 
:L'  +  STR 
SE  •  +Q: 
CNTR  + 
:L'  +STR 
ELECT  S 
CNTR  + 
:L'  +  STR 
SE  •  +  Q: 
CNTR  + 
:L*  +STR 
CIN  TO 
:  FI  ELD 
CNTR  + 
:L'  +STR 
SE'  TC 
CNTR  ♦ 
:L'  +  STR 
ELETE  F 
CNTR  + 

:  L'  +STR 
ELETE  F 
CNTR  + 

:  L'  ♦  STR 


•  .AND.  Q : SEICMD2  <>  '  • 

HI  2 ARY '  TO  SQ  :LIN E 

1  TC  Q:CN  TR 
jo  :CNTR,  2  )  TO  C  :LIN  E 
TEMPI  TO  50:  LINE 
1  TC  QiCNTR 
jQ  :  CNTR, 2 )  TO  Q:LINE 
isCCNDARY  *  TO  SQjLINE 
1  TC  Q:CNTR 
( Q : CNT  R, 2  )  TO  QsLINE 
TEMP2  TO  SQ:  LINE 
1  TC  Q :CN T R 
(Q  :CNTR,2)  TO  Q : LIN  E 

*  +  C  :TEMP3  ♦  '  FOR  P.  CAS  E=S  .  CASE  FIELD  «  +; 
TO  EQlLINE 

1  TO  Q:CNTR 

(Q : CNTR, 2)  TO  Q : LINE 

SQ  I II  NE 

1  TC  Q :CN  TR 

(QiCNTR, 2)  TO  Q :LIN  E 

ILE  D: ' +Q I  TEMP T-'  .DBF  1  TO  5Q: LI N E 

1  TC  Q :CN  T  R 

(QiCNTR, 2)  TO  Q:LINE 

ILE  D: *  +  Q :T£MP2-' . DBF'  TO  SOiLINE 

1  TC  Q:CNTR 

(Q  :CNTR,  2  )  TC  Q  :LIN  E 


SELCMD1  <>  '  '  .AND.  C:SELCMD2  =  '  ' 


*****  Generate  Codes  to  Rename  Files  as  Necessary 

TF  O*  FTDCMD?  a  'CASE  ' 

STORE  'RENAME  ' +Q: TEMF1 - ' .  DBF  TO  '  +  Q  ITEM ? 
TO  5Q:LINE 

STORE  Q:CNTE  +  1  TO  Q:CNTR 

STORE  •  O;  T.  •  +STR  fO*  mTH.  7\  TO  O  ;  T.T  N  E 


*  +Q ITEM  ?3- ' . DEF ' 


STORE  Q 
STORE  r 
ELSE 

STORE  ' 
STORE  Q 
STORE  • 
STORE  ' 
STORE  Q 
STORE  r 
STORE  • 
STORE  Q 
STORE  ' 
IF  Q:  FI 


rQ:  L' +STR  (Q:  CNTR,  2)  TO  Q  :  LINE 

'SELECT  SECONDARY'  TO  SQ  I LINE 
Q :CNTR  +  1  TC  QiCNTR 
•  Q:  L' +STR  (Q:  CNTR,  2)  TO  Q :  LINE 
•USE  '+Q:  TEMPI  TO  SQ  :  LIN  E 
QiCNTR  +  1  TO  QiCNTR 
*C:  L'+STR  (Q:  CNT  R, 2)  TO  Q I  LIN  E 
•SELECT  PRIMARY'  TO  SQ : LI NE 
QiCNTR  ♦  1  TC  QrCNTR 
'  6:  L' +STR (Q: CNTR, 2)  TO  Q: LINE 
ILE  *  'O' 


'  USE  D:CL0SE2' 
Q :  C NT R  *  1  TO 
'  Q  :  L'  +STR  (Q:CN 


TO  5 
:CNT 
B  ,2) 


STORE  'USE  D:OP  EN2  '  TO  6Q  :  LINE 
STORE  QiCNTR  ♦  1  TC  QiCNTR 
STORE  'Q  :  L '  +STR  (QiCNTR,  2)  TO  Q  I  LI  NE 
S  L  2  £ 

STORE  'USE  DICL0SE2'  TO  SQ 
STORE  QiCNTR  *  1  TO  QiCNTR 
STORE  'QiL'+STR  (QiCNTR,  2) 

ENDIF 

STORE  'JOIN  TO  '♦QITEMP3  +  ; 

'  FOR  P.  CASE=S.  CASE  FIELD 
STORE  QiCNTR  +  1  TO  QiCNTR 
STORE  f  Q:  L' +STR  (Q:  CNTR,  2)  TO 
STORE  ' USE'  TO  SQl LINE 
STORE  QiCNTR  +  1  TC  QiCNTR 
STORE  rQl L' +STR (Q: CNTR, 2)  TO 
STORE  'DELETE  FILE  D:'+QiTEMP 
STORE  QiCNTR  *  1  TO  QiCNTR 
STORE  f  Q:  L'  +STR  (Q:  CNTR,  2)  TO 


STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


I  LINE 
TO  Q I  LI NE 


•  ♦Q: FIELD 
Q I  LIN  E 


Q: LINE 
. DBI 

Q I  LIN E 


LINE 


SQ  :  LINE 


V' -  V  V- W-'.- 1 2 


ENCIF 


IF  Q  :  ?  LD  C  K  C 1  =  'CASE  * 

STORE  'RENAME  * +Q :  IFF P2- ' . DS F  TO  '+Q 
TO  SO : LINE 

STORE  v  :C  -i  T  R  +  1  I  G  0  :  C  N  TR 

STCEE  '  Q:  L*  +  STH  (Q:  CNTR,  2)  To  Q :  L I N  E 
ELSE 


STORE  'SELECT  SECONDARY'  TO  &Q : LIN  E 

STORE  Q  :CNTR  +  1  TO  Q:CNT3 

STCEE  L'  +STR  (Q:  CNTR. 2)  TO  Q  :  LIN  E 

STCRE  'USE  •♦Q:TEHP2  TO  &Q : LIN  E 

STORE  Q.-CNTB  +  1  TC  C:CNTR 

STORE  '  Q:  L'  +STR  (Q:  CNTR,  2)  TO  Q:  LINE 

STCRE  'SELECT  PRIMARY*  TO  &Q:LINE 

STCRE  Q:CNTR  +  1  TO  Q :  CNTR 

STCRE  '  Q:  L* +STR  (Q:  CNTR,  2)  TO  Q  :  LIN  E 

If  Q:  FILE  =  'O' 

STORE  'USE  D :0P  EN1 '  TO  SQ :LINE 
STORE  Q  :  CNTR  ♦  1  TO  Q : C N T R 
STORE  •  Qsl'+STR  (Q:CNTR,  2)  TO  Q  :  L I N  E 
ELSE 

STORE  'USE  D  :CL  OS  E  1  *  TO  &  Q: LIN  E 
STORE  Q : CNTR  +  1  TO  Q:CNTR 
STORE  '  Q:L'+ ST R  (Q:  CNTR,  2)  TO  Q:LINS 
ENCIF 

STCRE  'JOIN  TO  '  +  Q:TEMP3  +  '  FOR  P .  CAS  E=S.  C  AS  E  ' 

+' FIELD  *+Q : FIELD  TO  SQrLINE 
STCRE  QJCNTR  +  1  TO  Q  :CNTR 
STORE  ' Q:L' +STR (Q: CNTR, 2)  TO  Q: LINE 
STCRE  'USE'  TO  SQ: LINE 
STORE  Q :CNT R  +  1  TO  Q :CNTR 
STORE  '  Q:  L'  +  STR  (Q:  CNTF,  2)  TO  Q  :  LIN  E 
STORE  'DELETE  FILE  D:  • +Q: TEMP2- ' . DBF  '  TO  SQ:L INS 
STCRE  Q  :CNT  E  ♦  1  TO  QjCNTR 
STORE  •  Q:  L'  +STR  (Q:  CNTR,  2)  TO  Q:  LINE 
ENDIF 
ENEIE 
ENDIF 

STORE  Q  :  LOOPCNT-  1  TO  QlLOOPCNT 


*****  If  Two  Passes  Required,  Switch  to  Closed  File 
*****  For  Second  Pass 
IF  Q  :  NRP ASSES  =  2 

STCRE  'C'  TO  Q: FILE 
ENDIF 
ENDDO 


*****  If  Two  Passes  Required,  Generate  Code  To  Join  File 
*****  Created  by  Individual  passes 

I17  Q'NRPASS^S  =  2 

STCRE  'USE  D: '+C: WFC+'OPEN'  TO  &  Q  :  LIN  E 
STCEE  Q: CNTR  ♦  1  TC  Q : CN  TR 
STCRE  *Q:L'  +  STR  (Q  :CNTR,  2  )  TC  Q  :L  IN  E 
STCRE  'APPEND  FROM  ' +"D : +C  :  WHO*  '  CLOS  '  TO  SQ : LI NE 
STCRE  Q :  CNTR  +  1  TC  Q  :CNTR 
STCRE  'Q :L' +STR (QlCNTR, 2)  TO  QlLINE 
ENDIF 

♦SET  COLOR  TO  112,  6 
ER  A  S  E 

a  10,23  SAY  'Your  Query  Is  Now  Being  Processed' 

2  12,33  SAY  'Please  Standby' 

*****  Eegin  Execution  of  Generated  Code 

STORE  10  TO  C:  EXECNT  E 
CO  WHILE  Q :  ExECNTR  <=  Q:C NTR-1 

STCRE  'Q:L'+STR  (QiEXECNT  R,2)  TO  Q:  EX  ELINE 


156 


&&Q: EXELINE 

STORE  Q : EXECNTR  +  1  TO  Q  :  EX  FCN7R 
END  DO 

STORE  •«•«*.' C:'  +  C:WHC*'CPEN.  DBF' ♦"*"  TO  Q: OPES  FILE 
STORE  "•"+» C: • +C:KHO+'CLOS.  DEF •+" •"  TO  Q :C LOS  FILE 
IT  FILE  (SO :  CPE  SPILE)  .AND.  FILE  (SO:  CLOS  FILE) 

STORE  '  D  : '  ♦  C  :  WHO*  1  C P I ’.i 1  TO  Q: USEFILE 
STORE  ' D  : ' *C : WHO* ' CLOS. D  3F '  TO  Q : DEL  ETEF 
DELETE  FILE  SQ:DELETEF 
ELSE 

IF  FILE(SQ:  OPEN  FILE) 

STORE  'D  :  '  +C  :  W  HC*  ' OPE  N •  TO  Q:  US  SFILE 
ELSE 

STORE  ' D  :  '  +C  :  W HC+ ' CLO  S •  TO  Q: USEFILE 
ENDIF 
END  IF 


♦C : WHC+’OPE  N' 


TO  Q : DEL  ETEF 


Q:  USEFILE 
Q: USEFILE 


***** 

***** 


Display  The  Number  of  Records  Selected  and 
Provide  the  Option  of  Hard  Copy  or  Screen  Reports 


USE  SO: USEFILE 
GOTO  EOTTCM 
ERASE 

a  10,16  SAY  # 
a  10,22  SAY  *R 
a  13,30  SAY  '1 
a  15,30  SAY  '2 
a  17,30  SAY  '3 
<:TnRP  •  •  t  r  n 


W  it  M  \J 

STORE  • 
a  20,40 
READ 
DO  WHILJ 


SAY  'Records  Have  Been  Selected 
SAY  '1 .  Print  Hard  Copy' 

SAY  '2.  Display  To  Screen* 

SAY  '3.  Abort  Query' 

•  TC  Q: REPLY 
GET  Q:  REPLY 


For  This  Query' 


DO  WHILE  Q : REPLY  <  *1'  .OR.  Q: REPLY  >  '3' 
a  23,33  SAY  'Enter  1,  2  or  3'+  CHR(7) 
a  20,40  GET  QzREPIY 
READ 
ENDDC 
CO  CASE 

CASE  Q: REPLY  =  *  1  * 

SET  PRINT  ON 
USE  SC:US  EFILE 
DO  WHILE  -NOT.  EOF 
ERASE 

STORE  0  TO  C : LINEN  R 

DO  WHILE  -NCI.  EOF  .AND.  Q :  L  IN  ENR  <=  59 
DISPLAY  ALL  FIELD  SQ:DISPLAY  OFF 
SKIP 

STORE  Q : LINENR  +  1  TO  Q ; LIN  ENR 
ENCDO 
?  CHR  ( 1  2) 

ENCDO 

SET  PRINT  OFF 
CASE  Q:  REPLY  =  '2' 

ERASE 

USE  SQ:US  EFILE 

DISPLAY  ALL  FIELD  &Q: DISPLAY  OFF 
WAIT 

CASE  C : REPLY  =  '  3 ' 

USE 

DELETE  FILE  &Q  :  USEFIL  i*  •  .  DBF' 

RELEASE  ALL  LIKE  Q:* 

RETURN 

ENDCASE 

USE 

STORE  Q:0SEFILE+ '. DBF'  TO  Q :  US  E  FILE 
DELETE  FILE  6Q:USEFIIE 
RELEASE  ALL  LIKE  Q:* 

RETURN 

*****  OE  OF  PROGRAM 


&Q : USEFIL E*' .DBF' 
LIKE  Q:* 


lUSEFILE 
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**** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

**** 


XIII.  STATISTICS  GENERATION  MODULE 


*******  *******  *************************************** 
Data:  19  Jan  1 984 

Version:  1.0  5 

Module  Name:  STATGEN 

Module  Purpose:  Generate  count  of  Cases  in  Each 

Processing  Phase  and  Create  Time 
Frame  Statistics 

Module  Interface  Definition 
InDUts:  None 
Outputs:  None 

Module  Processing  Narrative  Description:  3 

Calculates  the  Time  Span  Between  Operations  3 
and  Updates  The  TECHCoDE  File  to  Indicate  the 
Number  of  Cases  in  Each  Processing  Status 


Superordinate  Modules:  UTILMENU 
Subordinate  Modules:  None 
Author:  R.  G.  NICHOLS 


*******  ***  *******************************************: 


*****  Display  Warning 
ERASE 

2  1,19  SAY  ******  Stai 

2  3,24  SAY  ****** 

2  4,24  SAY  •* 

2  5,24  SAY  '* 

2  6,24  SAY  '* 

2  7,24  SAY  •*  This  1 

2  8,24  SAY  •*  Ai: 

2  9,24  SAY  '* 

2  10,24  SAY  '* 

2  11,24  SAY  '*  If  E: 

2  12,24  SAY  •*  Larg< 

2  13,24  SAY  '* 

2  14,24  SAY  '* 

SAY  '* 

SAY  * 

SAY  ' 

SAY  ' 

•  TC  S 
GET  S: 


****  Statistics  Generation  Processing  ****** 

***************  i 


WARNING 


This  Program  will  Read 
All  Records  While 
Processing 

If  Existing  Files  Are 
Large,  This  could  Take 
Ho  urs 

**  ****  ******** 

Are  You  SURE  You  Want  To' 
Con  tin  ue  * 

<Enter  Y  or  N> *  +  CHR 

:  REPLY  2 
REPLY2 


CHR  (7) 


!  (S:REPLY2)  <>  '  Y’  .AND.  !(S:REPLY2) 
22  SAY  *  Enter  Y  or  N  only*  ♦  CHR  (7) 
an  ar.r  S:REPLY2  PICTURE 


2  14,24  SAY  '*  *  • 

2  15,24  SAY  ****************** 

2  17,24  SAY  *  Are  You  SURE  You  Want  To' 

2  18,24  SAY  '  Continue* 

2  19,24  SAY  '  <Enter  Y  or  N>  *  +  CHR(7) 

STORE  •  '  TC  S :  REPLY2 

2  21,40  GET  S: REPLY2 
READ 

DO  WHILE  !  (S:REPLY2)  <>  *Y'  .AND.  !(S:REPLY2)  <>  *N* 

2  23,22  SAY  'Enter  Y  or  N  only*  ♦  CHR  (7) 

2  21,40  GET  S  :REPLY2  PICTURE  ’A* 

READ 

ENDDC 

2  23,32  SAY  '  » 

2  17,40  SAY  '  * 

*****  verify  Password  Prior  to  Beginning  Computations 
IF  S  :  REPL  Y2  =  »Y* 

2  21,30  SAY  'Enter  Your  Password  ' 

STORE  '  '  TC  S : PA  SSWORD 

SET  CCNSCLE  OFF 


SAY  ' 
SAY  •  • 


« 


ACCENT  TC  S : PASS  w  C  F  D 
^  £  T  C  C  N  o  ^  L  Z  ON 
I?  £: EASE WO ED  <>  ' 

USE  C  rTZCHCODE  INDEX  D:TECH 
FIND  DC:  NFC 

IF  F  S  W  D  <>  5: PASSWORD  .C5.  #  =  0 
2  23,18  SAY  'Request  ABORTED 

+  ' -  Strike  Any  Key  Io  Continue' 

WAIT 

RELEASE  ALL  LIKE  S:* 

RETURN 
ENEIF 
SNDIF 
ELS  E 

RELEASE  ALL  LIKE  S:* 

RETURN 
END  IF 

*****  Display  Processing  Message  to  User 
ERASE 

2  6,27  SAY  'Internal  Statistics  Update' 

2  8,35  SAY  'In  Process' 

2  16,26  SAY  ******  DC  NOT  INTERRUPT  ****** 

SELECT  PFIMARY 

USE  D;0PEN1  INDEX  D:CCASE1 


*****  Eegin  Computing  Loop 

rn  uhttf  not  vnp 

DO  WHILE  S*(D  A  TES ,  U6 , 1 )  <>  •  •  .AND.  .NOT.  EOF 
STCRE  CASE  TO  S:CASE 
STCRE  WHO  TO  S:WHO 

STCRE  0  TO  S: ASSIGNED 
STCRE  0  TO  S:ACTIVE 
STCRE  0  TO  S: TRANSMIT 
STCRE  0  TO  S: RESPOND 
STCRE  0  TO  S : CLCSED 

STCRE  S  (DATES  ,  46, 1 )  TC  S  :  E  AT  ECHG 
STCRE  $  ( DATES  ,6,5)  TO  S:5ECEIPT 
SICRE  $  (DAIES,  1  1,5)  TC  S:OPEN 
STCRE  $(DATES,  16,5]  TO  S;XMIT 
STCRE  J  (D  A  TES  ,26,5)  TC  SjRESPONSE 
STCRE  $  (DATES  ,  36,5)  TO  S:CLOSE 

STCRE  0  TO  S: MAILDLAY 
STCRE  0  TO  S: XMITDLAY 
STCRE  0  TO  S : RESPDLAY 
STCRE  0  TO  S : CLCSDLA  Y 
STCRE  0  TO  S : P  ECCDLAY 


*****  Calculate  Time  Span  From  Receipt  to  Case  Open 

IF  S:  RECEIPT  <>  '  '  .AND.  S:OPEN  <>  ’  ' 

IE  ${S:  RECEIPT,  1,2  )  <  $  (S :  OPEN  ,  1 , 2) 

IF  VAL  (3  (S:OPEN  ,  1,  2)  )  -VAL  (S  (S:  RECEIPT  ,  1  ,2)  )  =1 
STORE  VAL  {$  (S:OPEN,3,3)  )  +365-; 

VAL(J(5:RECEIPT,3,3))  +1  TO  SlMAILDLAY 

ELSE 

IF  VAL  ($  (S:  OPEN  ,  1  ,  2)  )  -  VAL  ($  (S:  RECEIPT  ,  1 , 2)  )  =2 
STCRE  VAL  <$(S:OPSN,3,3))  *7  30; 

-VAL  ($  (S:  RECEIPT  ,3 ,3)  )  ♦  1  TO  S  :  MAILDL  AY 

E  LS  E 

STCFE  999  TC  S : MAILDL  AY 


1  TO  S:  MAILDLAY 


e  :;di  f 


S  TOPE  V  A I  ( 3  (S:CFEN,3,3))  -VAL  (3  (SiSZC  T  T~  T ,  3 , 3',  ) 
+  1  TO  5:  M  A I L  D  L  A  Y 

1 N  D I F 
i  N  £  I F 

*****  Calculate  Time  Spar.  Frc®  Case  Open  :c  Letoer  Iransui 

IF  S: XMIT  <>  •  • 

IF  $  ( S  :  OPEN  ,1,2)  <  3(S:XMIT, 1,2) 

IF  VAL  (3  (S:XMIT,1,2))  -VAL  (*  (S:0?EN,  1,  2)  )  =1 
STOPS  VAL  (3{  S:XMIT,3,3))  +  365-; 

VAL  ($  (S:  CFEN,3,3)  )  +1  TO  S  :  XX  IT  DL  A  Y 
S  E 

IF  VAI  <3  (S;XMIT,1  -2)  J-VAL  (3  (S:0?EN,  1,2)  )  =2 
STORE  VAL  (3  (§:  XMIT, 3, 3)  )  +730-; 

VAL(3  (3:GPEN,3,3)  )  +1  TO  3:XMITDLAY 

ELSE 

STORE  999  TO  S:XMITDLAY 
ENDIF 
ENDIF 
EL  CE 

“STORE  VAL(3(S:XMIT,3,3)  )  -  VAL  ($  (S:  OPEN  ,  3 , 3)  )  +1  ; 
TO  S : X MITDL  A Y 

INDIF 

ENDIF 

*****  Calculate  Time  Span  From  Letter  Transmit  to  Item 
*****  Manager  Response 

IF  c’RESr,ONSE  O  1  * 

IF*  $ ( S :  XMIT  ,1,2)  <  S  ( S :  RESPONSE,  1  .2) 

IF  V  AL  ($  <S:  RESPONSE,  1,2))  -VAL  (‘(S:  XMIT,  1,2)  )  =  1 
STORE  VAL($(S:RESPONSE,  3,3)  ) +365-; 

VAL  (3  (S:  XMIT, 3,3)  )  +1  TO  S  :  P.ESP  DL  AY 

ELSE 


IF  VAL  (3  (S:RESFCNSE,  1  -  2)  )  -  ; 
VAL  (3  (  S:  XMIT, 1  ,2)  =  2 

STORE  VAL  (3 ( S : RES PO NS E, 3 , 3 


STORE  VAL  (3  <S:  RESPONSE, 3,3)  ) +73  0  -  ; 

VAL  ($  (S: XMIT, 3, 3) ) +  1  TO  S : RESPDLA Y 

ELSE 

STORE  999  TO  S:RSSPDLAY 
ENDIF 
ENDIF 
ELSE 

STORE  VAL  (3  (S:  RESPONSE,  3,  3)  )  -VAL  (3  (S:  XMIT,  3 , 3) ) 
+  1  TO  S : RE SPDLA Y 

ENDIF 

ENEIF 


*****  Calculate  Time  Span  From  Item  Manager  Response  to 
*****  Case  Close 

IF  S: CLOSE  <>  •  • 

IF  $JS : RESPONSE, 1 , 2)  <  3  (S  : CLO S  S,  1 , 2) 

IF  V  AL  (3  (S:  CLO  5  E,1,2))-VAL(3  (S:  RESPONSE,  1 ,2)  )  =1 
STORE  VAL  (3  (SrClOSE,  3,  3))  +365  -  ; 

VAL  (3  (S:  RESPONSE, 3, 3  )  +  1  TO  S:CLOSDLAY 

ELSE 

IF  VAL  (3  (S:  C  LOSE,  1,2))  -  ; 


VAL  ($(S  iRESPCNSE,  1.2))  =  2 
STORE  VAL  (3  (S:CLOSE.3.3  ) +730  -  ; 

VAL(3(S -.RESPONSE,  3,3)  )  +1  TO  5  :  C 


ELSE 

STORE  999  TO  S:CLOSDLAY 
ENDIF 
ENDIF 
ELSE 


CLCSDLAY 


STORE  V  A1  ($  (S:C  LOSE,  3 . 3)  ) 

VAL  (3  (S:  RESPONSE,  3,  3)  )  +1 

E  N  DIF 


: CL OS D L  -  Y 


***  *  * 


***** 
***  *  * 


***** 
***  *  * 


***** 

***** 


Calculate  Time  Spat  From  Case  Open  to  Cas;  Close 

IF  $(S  :  OPEN,  1,2)  <  3(S:CL0SE.  1  ,2) 

IF  V  AL  ($  (SiCLOS  E,  1 ,2)  ) -VAL(S  (5  :0?EN,  1 , 2)  )  =  1 
STORE  VAL  (S  (  S:CLQSE.3, 3)  )  ♦  3t>5  -  ; 

VAL  (3  (S:  OPEN, 3,3)  )  +1  TO  S:PP.OCDLAY 

ELS  E 

IF  7AI(J  (S:  CLOSE,  1 . 2 )  )  -  V  AL  ( 3  (3  : 0?  E  N  ,  1  ,  2 )  )  =  2 
STORE  VAL  (S  (S:  CLOSE. 3  ,  3)  )  +  730  -  ; 

VAL($  (S: OPEN, 3, 3) )  +  1  TO  S : PRCCD LA Y 

E  IS  £, 

STORE  999  TO  S : PSOCDL AY 
ENDIF 
ENDIF 
ELSE 

STORE  VAL  (3  (S:CLOSE,  3,3)  )  -  VAL  (3  (S  :  OPEN  ,  3 , 3)  ) 

+  1  TO  S :PR OCDLAY 

ENDIF 

ENDIF 

SELECT  SECONDARY 

USE  D  :  QT  I M  E  INDEX  D:  Q  C  AS  E 

Update  Time  Frame  File  With  New  Time  Spans 

If  a  Record  Does  Not  Exist  For  a  Case,  Create  It 

FIND  SS:CASE 
IF  #  a  0 

APEEND  BLANK 

REELACE  CASE  WITH  S:CASE,WHO  WITH  S:  WHO 
IF  S: DA  TECH  G  <>  • N  ' 

STORE  •  9  999 •  TO  S:WHO 
ENDIF 
ENDIF 

IF  S: DAT  EC  HG  =  «N' 

STCRE  1  TO  S  :  ASSI G  NED 
STORE  1  TO  SlACTIVE 
ENDIF 

Chance  Status  From  Active  to  Transmitted  or 
Vice  Versa 

IF  S : XMITDLA  Y  >  0  .AND.  XMITDLA  Y  =  0 
STORE  S : ACT IVE  -  1  TO  S:ACTIVE 
STCRE  S  ITRANSMIT  ♦  1  TO  S: TRANSMIT 
ELSE 

IF  S:  XMITDLAY  =  0  .AND.  XMITDLAY  <>  0 
STORE  SlACTIVE  +  1  TO  SlACTIVE 
STORE  SJTRANSMIT  -  1  TO  S  :  TR  AN  S  MIT 
ENDIF 
ENDIF 

Change  Status  From  Transmitted  to  Responded  or 
Vice  Versa 

IF  S :  RES  P  D  LA  Y  >  0  .AND.  RE  S  PD  LA  Y  =  0 
STORE  S :TRA  NSMIT  -  1  TO  S: TRANS  MIT 
STCRE  S  :RES  POND  *  1  TO  S:RESPOND 
ELSE 

IF  S:  RESPDLAY  =  0  .AND.  RESPDLAY  <>  0 
STORE  S:  TRANSMIT  +  1  TO  SsTRANSHIT 
STORE  S : RES  PON  D  -  1  TO  SiRESPOMD 
ENDIF 
ENDIF 


*****  chance  Status  From  Responded  to  Closed  or 


*****  Vice  Versa 


T7  c  •  rr  1  ; 

stcre' 

ST  CEE 
ELSE 


T  p  C  ^  T  »  '/  =  ^ 

'ID  -  1  TC  “S:  RESPOND" 

5:CL0SED  +  1  TC  3  :  CL  OS  ED 


"t  T  «  y  N 

S'P.ESF 


IF  S:  CL  OS  DL  AY  =  0 


STORE 
STORE 
EN  DIF 
ENDIF 


AN  I.  CLOSDLAY  <>  j 


5 : 3ESPON D  -  1  TO  S:H£S?OND 
S : CIOS  ED  +  1  TO  S : CLO S  ED 


*****  update  Tine  Span  File 

REPLACE  CASE  WITH  S:CASE  'WHO  WITH  S : WHO  .MAILDLAY  ; 

WITH  S: MAILDLAY. XMITDLAY  WITH  5 : XMI TDLA Y, H ES? DLA Y  WITH  ; 

S:  RESFDLAY,  CLOSDLAY  WITH  S : CLC SD L AY , P ROCDL A Y  WITH  S:FROCDLAY 

SEIECT  SECONDARY 

USE  D-.TECHCODE  INDEX  D :  T  EC  H 

*****  update  Techcode  Fils 

FIND  SS:  WHO 
IF  #  <>  0 

REPLACE  ASSIGNED  WITH  ASSIGNED  +  SrASSIGNSD,; 

ACTIVE  WITH  ACTIVE  +  S: ACTIVE. TRANSMIT  WITH  TRANSMIT  ; 

+  S : TRANSMIT, RESPOND  WITH  R E SPOND+ S : R ES PON D , C LOS  ED  WITH  ; 
CLOSED  ♦  S : CLOS  E D 
ENCIF 
ENDIF 

SELECT  PRIMARY 

REELACE  DATES  WITH  $ ( D AT ES , 1 , 45) ♦ *  • 

SKIP 

ENDDC 

SKIP 

ENDDC 

*****  Release  All  Lccal  Memory  Variables  and  All  Files 
*****  used  During  Processing 

SELECT  PRIMARY 
USE 

SELECT  SECONDARY 
USE 

RELEASE  ALL  LIKE  S:* 

RETURN 


*****  END  CF  PROGRAM 


XIV.  JOHAN  DATE  CONVERSION  MODULE 


**  4* 

**  Date:  18  October  1984  ** 

**  Vers icr. :  1  .  0  ** 

**  Module  Name:  OJUIIAN  ** 

**  Module  Purpose:  Convert  Date  (MMDDYY)  no  Julian  ** 

**  Module  Interrace  CeiiniticD  ** 

**  InDuts:  V :MM  ,  V  :DD,V : YY  ** 

**  Ouhouts:  V:  J  ulDATrl  ** 

**  Module' Processing  Narrative  Description:  ** 

**  ‘  $* 

**  Receives  a  date  in  MMDDYY  format  and  converts  ** 

**  it  to  a  Julian  date  and  returns  the  date  tc  ** 

**  the  calling  program.  ** 

** 

**  Superordinate  Modules:  XOPEN2  ** 

**  Subordinate  Modules:  None  ** 

**  Author:  J.G.  BOYNTON  ** 

**  ** 


4**********  ***  ********************************************* 


CO  CASE 

CASE  V:  MM  =  0  1 
STCRE  V:DD  TO 
CASE  V:MM  =  02 
STORE  V:  DD  ♦ 
CASE  V :  M  M  =  0  3 
STCRE  V:DD  + 
CASE  V :  M  M  =  0  4 
STCRE  V:DD  + 
CASE  V:  MM  =  0  5 
STCRE  V:DD  ♦ 
CASE  V : M  M  =  06 
STCRE  V:DD  + 
CASE  V;  MM  =  0  7 
STCRE  V:DD  + 
CASE  V :  M  M  =  08 
STCRE  V:DD  + 
CASE  V:MM  =  09 
STORE  V:DD  + 
CASE  V:MM  *  10 
STCRE  V:DD  ♦ 
CASE  V: MM  =  11 
STCRE  V:DD  + 
CASE  V: MM  =  12 
STCRE  V:  DD  + 
ENDCASE 

IF  INT  (V  :  YY/4)  #4  = 
IF  V :  MM=  02  .AND 
STORE  V : D A Y  TO 
ELSE 

STORE  V : D  A  Y  + 
ENDIF 
END  I F 

STORE  V:YY  *  1000  + 
STORE  SIR  (V: JULIAN, 
RETURN 


V  :DAY 

3 1  TO  V: DAY 

59  TO  V:  DAY 

90  TO  V:  DAY 

120  TO  V : DAY 

151  TO  V : D A  Y 

181  TO  V : D A  Y 

2 12  TO  V : DAY 

243  TO  V : D A  Y 

273  TO  V : D A  Y 

3C4  TO  V : D A  Y 

3  34  TO  V : D A  Y 

V  :  YY  .AND.  V :  D  AY  >  = 
.  V :  DD=  29 

V  :  D  A  Y 

1  TO  V:  D  A  Y 

V  :  D  A  Y  TO  V;JULIAN 
5)  TO  V:  JULDATE 


60 


16  3 


*****  0F  PROGRAM 


XV.  COG  CC ON?  NOD  OLE 


**  ** 

**  Date:  8  Jan  1984  ** 

**  Version:  1.0  ** 

**  Module  Name:  COGCNT  ** 

**  Module  Purpose:  Count  the  Active  Cases  Assigned  :c  ** 

**  Any  Given  COG  '  ** 

**  ** 

**  Module  Interface  Definition  ** 

**  Inpurs:  None  ** 

**  Outputs:  None  ** 

**  ** 

**  Module  Processing  Narrative  Description:  ** 

**  ** 

**  Indexes  the  OPEN1  Fils  by  COG  and  Counts  ** 

**  The  Number  of  Cases  Assigned  To  Each  COG  ** 

**  ** 

**  Superordinate  Modules:  OTILMENU  ** 

**  Subordinate  Modules:  None  ** 

**  Author:  R.  G.  NICHOLS  ** 

**  ** 


**  *  **  *  **  4  4*4  4c  4**4  *  4*4  4  ********  ***************************  *  * 


*****  Display  Warning  Message  and  Accept  contins  Requesr 


ERASE 

a  1,24 
a  3 ,24 
ai  4,24 
S  5,24 
a  6,24 
a  7,24 
a  8,24 
a  9 , 24 
a  io,24 
a  n,24 
a  1 2, 24 
a  13,24 
a  14,24 
a  15,24 
a  17,24 
a  18,24 
a  19.24 
STORE  ' 
a  21,40 
READ 

DO  WHILE 

a  23, 

a  21, 

READ 
ENDDO 
a  23,32 
a  17,40 


SAY  ******  CCG  Count  Processing  ****** 

SAY  •*  *  • 

SAY  »*  WARNING  *  * 

SAY  '*  *  1 

SAY  •*  This  Frogram  Will  Read  *  1 

SAY  '*  All  Records  While  *  • 

SAY  '*  Processing  *  1 

SAY  '*  *  1 

SAY  '*  If  Existing  Files  Are  *  ' 

SAY  '*  Large,  This  Could  Take  *  ' 

SAY  '*  Hours  *  ' 

SAY  '*  *  ' 

SAY  ********  *4444*4**1 

SAY  *  Are  You  SURE  You  Want  To' 

SAY  '  Continue' 

SAY  '  <Enter  Y  cr  N> '  *  CHR  (7) 

'  TC  CC : REPLY2 
GEI  CC : R  EPL Y  2 

!  ( CC:  R  E  PL  Y  2  )  <>  'Y'  .AND.  !(CC:REPLY2)  <>  'N* 
22  SAY  'Enter  Y  or  N  Only'  +  CHE  (7) 

40  GET  CC:  REFLY2  PICTURE  'A' 


SAY  ' 
SAY  '  ' 


*****  Prompt  For  and  Accept  Password  Verification 
TF  rC*RFPIY?  =  ’  Y' 

a  2*1,20  SAY  'Enter  Your  Password  • 

STORE  '  '  TC  CC: P  SWD 

SET  CCNSCLE  OFF 
ACCEPT  TC  CC  :  FSWD 
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I 


■  -  \r  ~  ~  v- 


S  ET  CONSOLE  ON 
7  T  CC • PE  WD  <>  *  » 

USE  D  :  TECH  CODE  INDEX  D :  T  EC  H 
FIND  EC:  WHO 

IE  PS'WD  <>  CC:PSWD  .OF;.  1=0 

2  73  IO  S  Av  ’  P  =  ~ 

wait'  ' 

RELEASE  ALL  LIKE  CC:* 
RETURN 
ENEIF 
ENCI? 

ELSE 

RELEASE  ALL  LIKE  CC:* 

RETURN 

ENDIF 


*****  Begin  Statistics  Update 
ERASE 

w  12,20  SAY  •  CCG  STATISTICS  3EING  PROCESSED' 

a  14,20  SAY  '  PLEASE  STAND3Y  ' 

a  20,20  SAY  ******  DC  NOT  INTERRUPT  WHILE  PROCESSING  ****** 

SELECT  PRIMARY 

USE  E  : 0 P E N  1  INDEX  D  :  CCGCNT 

REINDEX 

SELECT  SECONDARY 

USE  E:CCG  INDEX  E:COGS 

REPLACE  COUNT  WITH  0  FOR  COUNT  <>  0 

SELECT  PRIMARY 

GOTO  '  2 

*****  Count  the  COGs  Assigned  Until  End  Of  File  Found 


EO  WHILE  .NOT.  EOF 

STORE  CCG  TO  CClCUERENT 
STORE  0  TO  CClCOUNT 


*****  Increment  Counter  Until  a  Different  COG  or  Er.d  Of 
*****  File  Found 

DC  WHILE  COG  =  CC:CURRENT  .AND.  .NOT.  EOF 
STCRE  CC : C  CU  NT  ♦  1  TO  CC:COUNT 
SKIP 
ENDDO 

SELECT  SECONDARY 

*****  update  IM  Record 

FIND  SCC :CURR  ENT 
IF  #  <>  0 

REPLACE  COUNT  WITH  CC:COUNT 
ENEIF 

SELECT  PRIMARY 
END  D  C 
USE 

SELECT  SECONDARY 
USE 

RELE  ASE  ALL  LIKE  CC  :  * 

RETURN 

*****  £ u E  CF  PROGRAM 


165 


1 VI.  0I3  WEEKLY  STATISTICS  REPORT  MODULE 


******************************************* ** ************** 


**  ** 

**  DATE:  27  JANUARY  1934  ** 

**  VERSION:  1.0  ** 

**  MODULE  NAME:  XX3ISTAT  ** 

**  MODULE  PURPOSE:  CALCULATE  EI-WEEKLY  STATISTICS  ** 

**  MODrJLr  INTERFACE  DEFINITION  ** 

**  ‘  INPUTS*  C:WHO,  CjJULIAN  ** 

**  OUTPUTS:  ** 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  ** 

**  ACCEPTS  CLOSING  DATE  FOR  THE  REPORT  IN  MMDDYY  ** 

**  FORMAT.  DATE  IS  CONVERTED  TO  JULIAN  FORMAT  EY  ** 

**  CALLING  OJULIAN.  DATES  FOR  PREVIOUS  YEAR  AND  ** 

**  OLDEST  YEAR  ARE  CALCULATED  AND  STORED  INTO  ** 

**  MEMORY  VARIAELES.  OPEN  AND  CLOSE  DATABASES  ARE  ** 

**  SEARCHED  SEQUENTIALLY  FOR  ANY  CASES  WHICH  WERE  ** 

**  OPENED  OR  CLOSED  DURING  THE  PERIOD  IN  QUESTION.  ** 

**  THE  BIWKSTAT  DATABASE  IS  READ  FOR  THE  COUNTS  ** 

**  OF  THE  LAST  REPORT  TO  CALCULATE  THE  TREND,  AND  ** 

**  THEN  THE  CURRENT  COUNTS  ARE  PLACED  INTO  THE  ** 

**  BIWKSTAT  DATABASE  FOR  FUTURE  REFERENCE.  THE  ** 

**  REPORT  IS  THEN  PRINTED  USING  THE  COUNTS  FROM  ** 

**  THIS  PROCESSING.  THE  PROGRAM  SHOULD  3E  RUN  ** 

**  IN  BATCH,  DURING  'OFF'  HOURS,  AND  ONLY  ON  THE  ** 

**  SPECIFIC  DAY  FOR  THE  CUTOFF  TO  KEEP  THE  TREND  ** 

**  DATA  REAL.  ** 

**  SUPSRORCINATE  MODULES:  SUPRPTS  ** 

**  SUBORDINATE  MODULES:  NONE  ** 

**  AUTHOR:  J.G.  BOYNTON  ** 

**  ** 


*********************************************************** 
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***** 
***  *  * 

***  *  * 
***  *  V 


THIS  SEQUENCE 
FCE  INPUT  AND 
C: JULIAN.  3W:LLIMIT=  YEAS 
3  ;  UL  Till  I  =  YEAR  PLUS 


CALCULATES  THE  UPPER  AND  LOWES  YEARS 
IS  BASED  ON  THE  CURRENT  JULIAN  DATE 
MINUS  TWO  YEARS 
Y  EAR 


u  a 


STORE 

('"’O  *  T* 

S^O  RE 
STORE 
STORE 
STORE 
STORE 
STORE 
RELEAS 


$  <C:  JULIAN, 1  .  2)  TO  TEMPI 

*r  —  -»  \  -i  >  b  rr  *r  -*  i  • 

'  r  1  i  -  •>  -  -  I  .*i 


I  2M 

!*  T) 

I I  A-L 


V  A I  <• 

VAL  (‘ 

TEKF 
TE  ft  P 1  A+HIGH 
SIR (LLMT, 2 


TC  LOW 
TO  HIGH 
OW  TO  LLMT 
TO  ULMT 
TO  EW : LLI MIT 


ST  E  (ULMT,  2  TO  EW  :  ULI  MIT 
£  TEMPI,  TEMPI  A,  LOW,  HIGH,  LLMT,  ULMT 


STORE  *  •  TO  EW : EDATE 

STORE  T  TO  E  W : CHOO  SE 
ERASE 

DO  WHILE  BW  : CHOOSE 


a  10,2 
a  1 1,2 
a  i  2,2 

a  i  4,3 
READ 
IF  $  (5 
.OR 
.OR 
.OR 
.OR 
.OR 

ELSE 

END  IF 

EN  DDO<  3  W: C 
a  23,30  SA 
RELEASE  BW 


0  SAY  ‘PLEASE  ENTER  THE  CLOSING  DATE’ 
0  SAY  ‘  FOR  THIS  BIWEEKLY  REPORT  ‘ 
0  SAY  •  < MM DD Y Y>  ‘ 
0  GET  BW:EDATE  PICTURE  '999999' 


:  EDATE 
$  (BW 


lhi\. 


<•0  1  • 


1.2 


a 


$  (BW:  EDATE,  3,2 
$  (BW:  EDATE, 3, 2 
S  (BW: EDATE, 5, 2 
S  (BW:  EDATE.  5,2 
23,30  SAY  'DATE 


>•  12'  : 

<• 0  1 1  ; 

>'31'  ; 

<  BW: LLI MIT  ; 
>  BW: U LIMIT 
OUT  OF  RANGE' 


STCRE  F  TO  EW: CHOOSE 
HCCS  E> 

Y  '  • 

: CHOOSE, BW:LLIMIT, BW: ULIMIT 


*****  CALCULATE  THE  DATES  TO  EE  SEARCHED  FOR  AND  ASSIGN 
*****  XH  EM  TO  THE  VAEABLES:  BW  :  CURR,  BW  :  PEE  V ,  B  W:  0  LD 

*****  ENTER  THE  CALL  TO  C: 0 JULIAN  TO  CHANGE  MMDDYY  TC 
*****  JULIAN  FORMAT 

STORE  VAL  (f  (BW:SDATE,1  ,2)  )  TO  V:MM 
STORE  VAL(I  (BW:EDATE,3,2  TO  V:DD 
STORE  VALjS  (BW:ED  ATE, 5, 2)  TO  V:YY 
DC  C : 0  JUL I  A N 

STORE  V:JUIDATE  TC  EW:CURR 
RELEASE  ALL  LIKE  V:* 

STORE  $(BW  :CURR. 1 ,2)  TO  BW: TYR 

STORE  VAL  ( EW :  TYR)_  TO  BW  :TYR3 

STORE  BW  :  T  YR3  -  1  TO  B  W  :  TYR  1 

STORE  BW : T YE3-2  TO  BW  :TYR2 

STORE  ST  R  { E  W:  TYR  1,2)  TO  3W:PREVT 

STORE  SIR  (EW:TYR2 ,2)  TO  BW: OL DT 

STORE  BW: PREVT+S < BW: CURR. 3. 3)  TO  BW:PREV 

STORE  BW  :OLDT  +  $_(BW;CURR,3,3)  TO  BW:OLD 

RELEASE  BW : FREVT, BW:0LDT, BW : TYR, BW: TYR 1 , BW :TY R2 

ERASE 

a  12,20  SAY  '  BIWEEKLY  STATUS  REPORT  IS  BEING  ' 
♦ ' EEOCESS ED' 

a  14,20  SAY  '  PLEASE  STANDBY 

3  23,20  SAY  '  ****  DO  NOT  INTERRUPT  WHILE  ' 
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+ ' PROCESS IMG  **** ' 


***** 


DATE  CHANGE  AMD  ASSIGNMENT  HERE 

ISE  D:OFEN1 

;C  WHILE  .MCI.  EG? 

STORE  DATES  TO  M  :  D  AT  ES 
STORE  COG  TO  H: COG 


STOR 
STOR 
IF  $ 


END  I 
IF  $ 


END  I 
IF  $ 


E  $ (M:DATES ,11 ,5)  TO  3W : OD  AT 
E  $ (M:DATES .36,5)  TO  BW : CD AT 
(BW  :  CEAT,  1,2)  =  $  (3W:CURR,  1 ,2) 

STORE  3W:CREC  ♦  1  TO  BW:CF.EC 
IF  B  W : CD AT  <>  '  • 

STORE  BW  iCCLOS  +  J  TO  £>»:CCLOS 

VLSE 

IF  S  (M:  COG,  1  ,1)  =  '  9' 

STORE  EW  :  C9COG  ♦  1  TO  BW:C9COG 

ELSE 

STORE  BWtCSPCC  +  1  TO  BW:CSPCC 
ENDIF 
END  I  F 

F  <  THIS  CASE  IN  CURRENT  YEAR  COUNT> 

(BW  :  CDAT,  1,2)  =  $  (B  W:  PREV ,  1 ,2) 

STORE  BW :PH  EC  ♦  1  TO  BW : PR  EC 
IF  B  W  :CD AT  <>  »  • 

STORE  B  W : PCLOS  ♦  1  TO  BW:PCLOS 

ELSE 

IF  $  (M :  COG  ,  1  ,1)  =  '9' 

STORE  EW  :P9COG  +  1  TO  BW:P9COG 

ELSE 

STORE  EW  :  PS  PCC  +  1  TO  BW:PSPCC 
ENDIF 
ENDIF 

F  <  THIS  CASE  IN  PREVIOUS  YEAR  COUNT>  * 


(BW  :  CEAT  ,1,2)  =  $  (BW:OLD,  1,2) 

STORE  BWiOREC  +  1  TO  BW:OREC 
IF  B  W :CC AT  <>  '  • 

STORE  BW :OCLOS  ♦  1  TO  BW:OCLOS 

ELS  E 

IF  $  (M:  COG,  1  ,  1)  =  •  9' 

STOR?  BW : 09C0G  ♦  1  TO  BW:09CCG 

ELSE 

STORE  EW : OSPCC  ♦  1  TO  BW:OSPCC 
ENDIF 
ENDIF 

ENDIF  <  THIS  CASE  IN  OLDEST  YEAR  COUNT> 


IF  $ 
$ 
$ 

ENDI : 
SKIP 


[BW:  CDAT,  1  ,  2)  OS  (BW:CURR,  1  ,2)  .A: 

BW : CEAT, 1,  2) <>$ (BW  JPREV, 1 ,2)  . A1 
(BW:  CEAT,  1,  2)  OS  (BW  :OLD,  1,2) 

STORE  BW: OF ERR  ♦  1  TO  BW:OPERR 


ENDDO  <SE ARCH  OF  OPEN1.DBF  > 

*****  OF  THE  OPENFILE  SEARCH,  NOW  FOR  THE  CLOSED  FILES 

USE  D:  C  LOS  E  1 

DO  WHILE  .  NCT.  EOF 

STORE  DATES  TO  H  :  C  AT  ES 
STORE  COG  TO  M:  COG 
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ST  OR?  S  {M:DATES  f  1  1 ,5)  TO  3  W  :  0  D  A  T 
STORE  5  («: DATES .36,5)  TO  BW:CDAT 
I?  S  (3W:CEAT,1,  2)  =  $  (8  W:  CURR,  1,2) 

STORE  EW:CRECC  ♦  T  TO  BWrCKtCC 
If  3  W :CD AT  <>  '  ' 

STORE  3  W :  C  ERROR  ♦  1  TO  BW:CE?.EOR 
END  I F 

ENDIF  <  THIS  CASE  IN  CURRENT  YEAR  CO'JNT> 

IF  $  (BW:  CDAT, 1  ,  2)  =  $ 

STORE  EW  :PR  ECC  ♦ 

I?  8  W :CDAT  <>  • 

STORE  B  W :  P  ERROR  ♦  1  TO  BK'.PERFOP 
END  I F 

ENDIF  <  THIS  CASE  IN  PREVIOUS  YEAR  COUNT> 

IF  $  (BW:CDAT,1,  2)  =  $  (QU  :  OLD  ,  1  ,  2) 

STORE  BWrORECC  +  T  TO  BW-.ORECC 
IF  BW:CDAT  <>  '  • 

STORE  B  W :0  ERROR  +  1  TO  BW : OERROR 
ENDIF 

ENDIF  <  THIS  CASE  IN  OLDEST  YEAR  COUNT> 

SKIP 

ENDDO  <SE ARCH  OF  CLOSE1 .DBF  > 

STORE  BW:  C9CCG  ♦  BW:CSPCC  TO  BWtCTOT 
STCRE  BW: P9CCG  *  BW:PSPCC  TO  BW:PTOT 
STORE  B W: 0 9CCG  +  BW:OSPCC  TO  BWiOTOT 
STCRE  BW:  OERECR+BW  iPERROR+BW  :CERROR  TO  BW  :  TERROR 

STORE  *19'  +  f (BW:  CURR, 1  ,2)  TO  BW : CY  EAR 

STCRE  '19'  ♦  $ (BW :  PREV,  1 .2)  TO  BW : PYEAR 

STCRE  '19*  +  $  (BW:  OLD  ,1,2)  TO  B  W  :  OYE  AR 

USE  D:BI(fKSTAT 

STCRE  TOTALS  TO  BW  :SCTOT 
SKIP 

STCRE  TOTALS  TO  BW:SPTOT 
SKIP 

STCRE  TOTALS  TO  BW  :SOTOT 

STCRE  •  •  TO  BW.-CLAEEL 

STCRE  '  •  TO  BW : PL AEEL 

STCRE  '  •  TO  BW : OLAEEL 

IF  BW  :  SCTOT  <  BW : CTOT 

STORE  'UP'  TO  BW : CLABEL 

ENDIF 

IF  BW:  SCTOT  >  BW :  CTOT 

STORE  'DOWN'  TO  EW : CLAB  EL 

ENDIF 

IF  BW:  SFTOT  <  BW:  PTOT 

STORE  '  UP'  TO  EW  :  PL  A  BEL 
ENDIF 

IF  BW  :  S  ETOT  >  BW:PTOT 

STORE  'DOWN'  TO  B  K : PLA  BEL 
ENDIF 

IF  BW :  SOTOT  <  BW:OTOT 

STORE  'UP*  TO  EW  :  OL  ABEL 
ENDIF 

IF  BW:  SCTOT  >  BW:OTOT 

STORE  'DOWN'  TO  B  W  :  OLA  BEL 
ENDIF 

STCRE  BW: SOTCT-BW: OTCT  TO  BW : OTRD 
STCRE  BW: SPTCT-BW : PTCT  TO  BW : PTRD 
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STORE  3W:  SCTCT-3W:  CICT  TO  BWiCTP.D 

SET  FORM  AT  TO  PRINT 

3  2,30  SAY  '  CODE  9142  TECHNICAL  BRANCH' 

3  4,30  SAY  '  QUALITY  DEFICIENT  MATERIAL* 

3  6,30  SAY  '  31  iiEEKL  Y  STATUS  REPORT  ' 

2  8,30  SAY  •  THRU' 

a  8,47  SAY  S  (BW:  ED  ATE  ,  1  ,2)  +  ' /•  +$  (BW:  EDATE,  3 ,2)  +; 

'/'  +  3  (BW:EDATE,5,2) 
a  10,30  SAY  '  JULIAN  DATE* 

a  10,5  0  SAY  EW: CUR  R 
a  12,  1 0  SAY  ' 

+  '  SPCC  9-COG  TOTAL  1 

a  13,10  SAY  ‘CALENDAR  CASES  CASES 

♦  '  CPEN  OPEN  OPEN  TREND' 

2  14,10  SAY  '  YEAR  RECEIVED  CLOSED 

♦  •  CASES  CASES  CASES  • 

a  18,13  SAY  EW  : OYE  AR 
STORE  BW:OREC*BW:0 RECC  TO  BW:TOREC 
a  18,  1  8  SAY  EW  ;  TOR  EC 
a  18,30  SAY  EW :  ORE  CC 
a  18,40  SAY  EW  :  OS  P  CC 
a  18,50  SAY  EW:09C0G 
a  18,60  SAY  EW :  OTO  T 
a  18,70  SAY  EW:OTRD 
a  18,80  SAY  EW :  OLA  EEL 

a  20,13  SAY  EW : PYE  AR 
STCRE  BW:PREOEW:PRECC  TO  BW:TPRSC 
a  20, 1 8  SAY  EW: TPR  EC 
a  20,30  SAY  EW : PRE  CC 
a  20,40  SAY  EW :  PSP  CC 
a  20,50  SAY  EW  :  P9C  OG 
a  20,60  SAY  EWiPTOT 
a  20,70  SAY  EWJPTRD 
a  20,  80  SAY  EW:  PLA  BEL 

a  22,13  SAY  EW  :  CYE  AR 
STORE  BW:CREC+BW:CRECC  TO  BW:TCREC 
a  22,18  SAY  EW  : TCR  EC 
a  22,  30  SAY  EW :  CRE  CC 
a  22,40  SAY  EW:CSPCC 
a  22,  50  SAY  EW :  C9C  CG 
a  22,60  SAY  EW:CTOT 
a  22,  70  SAY  EW :  CTR  D 
a  22,80  SAY  EW : CLA  EEL 

a  36,24  SAY  '  CASE  INPUT  COMPARISON' 

a  40,25  SAY  BW:P  YEAR 

a  40,40  SAY  BW:C  YEAR 

a  40.55  SAY  'TREND' 

STORE  BW:PREC+BW:PRECC  TO  BW:TPREC 
a  42,18  SAY  EW :  TPR  EC 
a  42,  32  SAY  EW :  CRE  C 
STORE  '  ’  TO  BW :TL  A  EEL 

IF  BW :  T  PR  EC  >  BW:CREC 

STORE  'DOWN'  TO  BW:TLABEL 
ENDIF 

IF  BW ; T  PREC  <  BW:CREC 

STORE  'UP'  TO  BW:  TLABEL 
ENDIF 

STCRE  BW:CREC-BW: T PREC  TO  BW :TTRD 
a  42,48  SAY  EW :  TTR  D 
a  42,  59  SAY  EW:  TLA  BEL 

EJECT 

*****  PAGE  TWO 
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STORE  BW:CREOBW:PREOEW:OSEC  TO  BW:TREC 
STORE  BW:CRECC+3W : FEECC+BW :ORECC  TO  3W:T RECC 


3 

3 

3 

a 

a 

a 


2.30  SAY  ' 

**  ,  J  '7  L)  f.  * 

6.30  SAY  ' 

8.30  SAY  • 


C  ODE  9  1 4 2  _I EC Hii I C A L  _  SR  A  SC  H 

ei  Weekly"  status  report'1” 

THRU' 


8,47  SAY  $  (BW:ED  ATE  ,  1  ,2)  ♦  •  /•  *$  (  BW:  EDATE,  3, 2)  ; 

+  •/•  *i  <BW:EDATE.5,2) 

10,33  SAY  '  JULIAS  DATE' 

10,52  SAY  EM :  CUR  R 


a  14,25  SAY  'TOTAL  RECORDS  OS  OPEN  FILE:' 

.F)  1  Li  7  0  517  F  ’J  •  T  R  ?  f 

3  16'25  SAY  'TOTAL  RECORDS  ON  CLOSED  FILES:' 
a  16,70  SAY  EM : THE CC 

3  18,25  SAY  'RECORDS  WITH  INVALID  DATES, OPEN  FILE 
a  18,6  9  SAY  EW :  OPE  RR  -  1 

a  20,  25  SAY  'RECORDS  WITH  INVALID  DATES, CLOSED  • 
♦'FILE:' 

a  20,70  SAY  EW  :TER  ROR 
a  28,  40  SAY  'END  OF  REPORT' 


EJECT 

SET  FORMAT  TO  SCREEN 


*****  STUFF  NEW  COUNTS  INTO  THE  BIWKSTAT  DATABASE 

USE  D:  BIWKSTAT.  DBF 

REPLACE  TOTALS  WITH  BW:  CTR  D 

SKIP 

REPLACE  TOTALS  WITH  EW :  PTRD 
SKIP 

RgELACE  TOTALS  WITH  BWrOTRD 
RELEASE  ALL  LIKE  3k:* 

ERASE 

RETURN 


*****  enE  CF  PROGRAM 
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XVII.  MONTHLY  STATISTICS  REPORT  MODULE 


***  *  **********************  ********************************* 


**  ** 

**  DATE:  8  JANUARY  1984  ** 

**  VERSION:  1.0  ** 

**  MODULE  NAME :  XX MS ST AT  ** 

**  MODULE  PURPOSE:  CALCULATE  MONTHLY  STATISTICS  REPORT  ** 

**  MODULE  INTERFACE  DEFINITION  ** 

**  INPUIS:  C:  WHC ,  C:JULIAN  ** 

**  OUTPUTS:  NONE  ** 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  ACCEPTS  THE  ENDING  DAIE  AND  THEN  CALCULATES  THE  ** 

**  JULIAN  DATE  FOR  THIS  YEAR  AND  THE  PRIOR  TWO  ** 

**  YEARS.  THE  OPEN  AND  CLOSE  DATA  BASES  ARE  ** 

**  SEARCHED  SEQUENTIALLY  TO  FIND  THE  STATUS  OF  ** 

**  EACH  CASE  IN  THE  DESIGNATED  TIME  PERIODS  AND  ** 

**  COUNTS  ARE  SUMMARIZED  INTO  MEMORY  VARIABLES.  ** 

**  AFTER  PROCESSING,  THE  REPORTS  ARE  GENERATED  TO  ** 

**  THE  PRINTER.  THIS  INCLUDES  THE  MONTHLY  STATUS  ** 

**  REPORT  BY  YEAR,  COMMAND  KEY  INDICATORS  FOR  ** 

**  CURRENT  YEAR,  AND  THE  SUMMARY  REPORT  FOR  THE  ** 

**  CURRENT  YEAF.  THIS  SHOULD  BE  DONE  'OFF'  TIME  ** 

**  AND  WHEN  THE  SYSTEM  IS  NOT  BEING  USED.  OUTPUT  ** 

**  IS  DIRECTED  TO  THE  PRINTER.  ** 

**  ERROR  LISTING  CAN  EE  RETREIV  ED  IN  D :  MSB  AD .  TXT  ** 

**  BY  'TYPING'  USING  THE  OPERATING  SYSTEM.  ** 

**  ** 

**  SUPERORDINATE  MODULES:  SUPRPTS  ** 

**  SUBORDINATE  MODULES:  NONE  ** 

**  AUTHCR:  J.G.  BOYNTON  ** 

**  ** 


*********************************************************** 

SET  ALTERNATE  TO  D : MSEAD 
STORE  1  TO  MS:  ROW 

*****  INITIALIZATION  CF  VARIABLES 

STORE  0  TO  MS:  C RCVD 
STORE  0  TC  MS: OPTOT 
STORE  0  TO  MS:  CL  TOT 
STORE  0  TO  MS:  OPERR 
STORE  0  TO  MS:  CL  ERR 


*****  THIS  SEQUENCE  CALCULATES  THE  UPPER  AND  LOWER  YEARS 
*****  pop  INPUT  AND  IS  BASED  ON  THE  CURRENT  JULIAN  DATE 
*****  c :  JULIAN.  MS  :  LLIMIT=  YEAR  MINUS  TWO  YEARS 
*****  ksjULIMIT  =  YEAF  PLUS  ONE  YEAR 

STORE  $  (C:  JULIAN, 1 .2)  TO  TEMPI 

STORE  VAI  (TEMPI)  TO  TEMPI  A 

STORE  VAI  ('  2')  TO  LOW 

STORE  VAI('I')  TC  HIGH 

STORE  TEMPI  A-LOW  TO  ILMT 

STORE  TEMPI  A+HIGH  TO  ULMT 

STORE  STB  (LLMT,2)  TO  MS  :  LLI  MIT 

STORE  STRjULMT,2)  TO  MS : ULI MIT 

RELEASE  TEME1, TEMPI  A , LOW , HI GH , LLMT, ULMT 

*****  INFUT  OF  REPORT  CLOSING  DATE 


STCRE  '  '  TO  MS : EDATE 

STORE  T  TO  MS:  CHOOSE 
ERASE 

DO  WHILE  M S  : CHOOSE 

al  10,20  SAY  ’PLEASE  ENTER  THE  CLOSING  DATE' 
a)  11, 2C  SAY  •  FOR  THIS  MONTHLY  REPORT  ' 
a)  12,20  SAY  '  <M M DD YY>  ' 

a)  14,31  GST  MS:  EDATE  PICTURE  '999999' 

READ 

IF  $  ( M  S :  ED  ATS  ,  1 , 2)  <  '01'  : 

.OR.  $  ( MS  :  ELATE,  1,2)  >'  12'  ; 

.OR.  $  (MS :  EDATE, 3,  2  <  *01*  ; 

.OR.  $  MS:  EDATE,  3, 2)  >'31'  ; 

.OR.  $  MS: ELATE. 5. 2  <  MS : LL IMI T  ; 

.OR  .$ (MS: EDATE, 5,2) >MS : ULIMIT 

2  23,30  SAY  r  DATE  OUT  OF  RANGE* 

EL  SE 

STOFE  F  TO  MS :CHOOSE 
EN  DIF 

ENDDO  <MS:CHCOSE> 

2  23,  30  SAY  •  • 

RELEASE  MS : CHOOSE, MS : LLIMIT, MS : ULIMIT 

*****  CALCULATE  DATES  TO  BE  SEARCHED  FOR  AND  ASSIGNS  THEM 
*****  TC  VARIABLES 


*****  e^iER  THE  CALL  TO  C: O JULIAN  TO  CHANGE  MMDDYY  TC 
*****  JULIAN  FORMAT 

STORE  VAL  (3  (MS:EDATE,1  ,2)  )  TO  V:MM 
STORE  VAL(3(MS:EDATE,3,2)  J  TO  V:DD 
STORE  VAL  (3  (MS  :EDATE,5,2)  TO  V:YY 
DC  C:OJULIAN 

STORE  V;  JUIIATE  TO  MS.-CJUL 


*****  THIS  CALCULATES  THE  JULIAN  DATE  OF  THE  FIRST  DAY 
*****  0F  THE  MONTH  OF  INTEREST 

STORE  VAL('OI')  TO  V:DD 
DC  C:OJULIAN 

STORE  V:  JU  LDATE  TO  MS:CJUL1 

STORE  3  (MS  :CJUL,  1  ,2)  TO  MS:  TY R 
STORE  VAL  (MS  :  TYR)_  TO  M S :  T  Y R 3 
STORE  MS  :  T  Y E 3 - 1  TO  M S  : T Y R  1 
STORE  MS  :  T  Y R 3 -  2  TO  M S  : T Y R 2 
STORE  STR  (MS:TYR1  ,2)  TO  MS:?REVT 
STGRE  STR  (MS:TYR2  ,2  TO  MS: OLDT 
*****  CALCULATE  THE  CALENDAR  AND  JULIAN  DATES  FOR  THE 
*****  PREVIOUS  YEAR 

STORE  VAL  {$  (MS  :  ED  ATE,  1 , 2)  )  TO  V:MM 
STORE  VAL(I(MS:EDATE.3,2)  TO  V:DD 
STORE  VALjMS:?REVT)  IO  V:YY 
DC  C  : 0 JU L I  A N 

STORE  V.-JULDATE  TC  MS:PJUL 

****  CALCULATES  FIRST  DAY  OB  MONTH  IN  PREVIOUS  YEAR 

S  TOR  E  VAL(’CI')  TC  V:DD 
DC  C  :  0  JU L I  A N 

STORE  V:JULDATE  TC  MS:PJUL1 
*****  CALCULATES  ENDLATE  OF  MONTH  IN  OLDEST  YEAR 
STORE  VAL  (3  (MS:  ED  ATE, 1,2)  )  TO  V:MM 


173 


STORE  VAL  ($  (MS:ED  ATE  .3,2)1 
STORE  VAL(  MS:OL.DT  )  TO  V:YY 
DC  C :0 JULI AN 

STORE  7;  JU  ID  ATE  TC  MS: CJUL 


*  *  *  *  * 


LA  T  _  5  F I  L  i  J  i  . 


Or 


TO  V : DD 


0  Lt  Xf  Li  Cj  X 


STORE  VAL('OI')  TC  V:DD 
DC  C:0 JULIAN 

STORE  V: JUIDATE  TO  MS:OJUL1 

RELEA  SE  MS  :FREVT, MS: 0 LDT, MS : T YR , MS : TYR 1 , MS : T Y  R2 ; 
MS  :TYR3 

RELEASE  ALL  LIKE  V:* 


v  BAS  E 

a  12,20  SAY  '  MONTHLY  STATUS  REPORT  IS  BEING  ; 
+  '  EEOCESS ED  * 

a  14,20  SAY  '  PLEASE  STANDBY  ' 

2  23,20  SAY  *****  DC  NOT  INTERRUPT  WHILE  ; 

♦ • PROCESSING  **** ' 

*****  END  DATE  CHANGE  AND  ASSIGNMENT  HERS 


*****  SEARCH  THE  OPEN  DATABASE 


STORE 

0 

TO 

MS: C01 

STCRE 

0 

TO 

HS:C02 

STORE 

0 

TO 

MS : C03 

STCRE 

0 

TO 

MS :C04 

STCRE 

0 

TO 

MS: P01 

STCRE 

0 

TO 

MS : P02 

STORE 

0 

TO 

MS: P03 

STCRE 

0 

TO 

MS:P04 

STORE 

0 

TO 

MS : 001 

STCRE 

0 

TO 

MS:002 

STORE 

0 

TO 

MS : 003 

STCRE 

0 

TO 

MS :004 

STORE 

0 

TO 

MS: PTOT 

STCRE 

0 

TO 

MS :OTOT 

USE  D 

:  0  PEN  1 

DO  WHILE  -NCI.  EOF 

STORE  DATES  TO  M  :  D  AT  ES 


STORE  $  ( JJ  :D  ATES  ,11,5) 
STOR  E  $  (  M:DAISS ,36.5) 
*****  jF  CASE  IS  IN  CURRENT  YEAR 


TO  MS : 0 D A T 
TO  MS: CD  AT 


IF  J  (MS:  CDAT,1,  2)  =  S  (MS : CJUL,  1 ,2) 


IF  MS  : CD AT  >  MS:CJUL1  .AND.  MS  :OD AT<MS : CJUL 
STORE  MS : C  RCVD  +  1  TO  MS:CRCVD 


*****  i f  CASE  IS  STILL  OPEN  IT  SHOULD  BE  IN  THIS  FILE 


IF  MS : C CAT  = 

STORE  V  A  L  ($ 

STORE  VAL 
STORE  V. 

STORE  STR  (V:TIMEN,  3) 
RELEASE  ALL  LIKE  V:* 


MS:  CJUL, 3 ,3j  J 


AL  ($  (MS:  CJ 
AL  5  ]MS:ODAT,3 
:  CD AT  -  V: 


n.  x  f 

ODAT  '  TO 
TO 


TC  V:CDAT 
TO  V  :  CD  AT 
V : TI M  EN 
MS : T I M  E 


CASE  MS: TIME  <  *61' 


STORE  !1S:C01  +  1  TO  MS :  CO  * 
CASE  MS: TIME  <  •  12  1' 

5  i  Q  E  E  M  S  :  C  0  2  +  1  TO  M  S  ;  C  :  2 
CASE  MS: TIME  <  '1S1» 

STORE  MS: CO 3  *■  1  TO  MS  :<'*'■ 
CASE  MS: TIME  >  • ISO* 

STORE  M S : C 0 4  +  1  TO  ES:COU 

END CASE 
END  IF 
END  I  F 

END  I F  <  CASE  OPENED  IN  THE  CURRENT  YEAR  > 


*****  IF  CASE  IS  IN  PREVIOUS  YEAR 

IF  $  (MS:  CDAT,1, 2)  =  $  (MS:  PJUL,  1  f  2) 

IF  MS  :  0  D  AT  >  MS:PJUL1  .AND.  M S: 0 D AT< MS : PJ UL 
STORE  MS : PTOT  +  1  TO  MS:PTOT 

*****  IF  CASE  IS  STILL  OPEN  II  SHOULD  BE  IN  THIS  FILE 

IF  MS :  C  C AT  =  »  * 

STORE  VAL  (3  (MS:  ?JUL,3  ,3)  )  TO  V:CDAT 
STORE  VAL($  (M  S :  0  DAT,  3 , 3)  )  TO  V:ODAT 
STORE  V :  CD  AT  -  V:ODAT  TO  V  :  T I M  E  N 
STORE  STR  (V  :  TIM  EN  ,  3)  TO  MS  :  T I M  E 
RELEASE  ALL  LIKE  V:* 

DO  CASE 

CASE  MS: TIME  <  • 61 • 

STORE  MS : PO  1  +  1  TO  MS : PO 1 
CASE  MS:  TIME  <  ’12V 

STORE  MS : P02  +  1  TO  KS:P02 
CASE  MS:  TIME  <  M8  1* 

STORE  MS : P03  +  1  TO  MS : PC  3 
CASE  MS:  TIME  >  '180* 

STORE  MS:P04  +  1  TO  MS : P04 

ENDCASE 
ENDIF 
END  IF 

ENDIF  <  CASE  OPENED  IN  THE  PREVIOUS  YEAR  > 

*****  IF  CASE  jS  IN  CIDEST  YEAR 

IF  $  (MS:  CDAT,  1 ,  2)  =  3  (MS:  OJUL,  1 , 2) 

IF  M  S  :  0  D  AT  >  MS:0JUL1  .AND.  M S : 0 D AT< MS : CJUL 
STORE  MS : OTOT  +  1  TO  MS:OTOT 

*****  IF  CASE  IS  STILL  OPEN  IT  SHOULD  BE  IN  THIS  FILE 

IE  MS  •  C  C  AT  =  '  ' 

STORE  VAL  ($  (MS:  OJUL,  3  ,3)  )  TO  V:CDAT 
STORE  VAL  (3  (MS:  ODAT,3 , 3)  )  TO  V:CDAT 
STORE  V  :  CD  AT  -  V:ODAT  TO  V ;  T I M  E  N 
STORE  STR  ( V :  TIM  EN  ,  3)  TO  MS  :  T  I M  E 
RELEASE  ALL  LIKE  V:* 

DO  CASE 

CASE  MS: TIME  <  *61* 

STORE  MS :001  ♦  1  TC  MS  :  C0 1 
CASE  MS: TIME  <  '121' 

STORE  M S : 0 0 2  ♦  1  TC  MS:C02 
CASE  MS:  TIME  <  '  18  1* 

STORE  MS : 003  ♦  1  TO  MS:C03 
CASE  MS: TIME  >  ' 180* 

STORE  MS : 004  +  1  TO  MS:C04 
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END  CAS  r 
END  IF 
END  IE 

ENDIF  <  CASE  OPENED 


:he  oldest  y: 


IF 


$  (MS  : 
3  MS: 
3  (MS: 


MS  :  C D Ax  /  1  ,  2)  03  (MS  :  C  J U L  ,  1  ,  2)  .AND.  ; 
COAT,  1  ,  2)  OS  (MS  :  P  JUL,  1  ,2  .AND.; 

CD  AT,  1  ,  2)  OS  (MS  :OJ'JL,  1  ,2 
STCFE  MS :  CPEER  +  1  TO  MS:  OPS?.  3 
STOHE  CASE  TC  MSlCASE 
SET  ALTERNATE  ON 
?  MS: ROM, 10  SAY  *OCASE' 

?  MS : ROM , 18  SAY  MS: CASE 
7  MS: ROM, 30  SAY  $ ( MS : OD AT,  1 , 2)  +  '  /  '  ; 


ENDIF 


SET  ALTERNATE  OFF 


STORE  M  S  :CPTOT  +  1  TO  MS:OPTO? 
SKIP 


EMDDO  <  WHILE  NOT  EOF  IN  OPEN  FILE  > 


*****  START  THE  SEARCH  AND  COUNT  IN  THE  CLOSED  DATABASE 
*****  INITIALIZATION  CF  VARIABLES  FOR  CLOSED  FILE 


STORE 

0 

TO 

MS 

OCL 1 

STORE 

0 

TO 

MS 

0CL2 

STCRE 

0 

TO 

MS 

0CL3 

STORE 

0 

TO 

MS 

0CL4 

STCRE 

0 

TO 

MS 

PCL 1 

STCRE 

0 

TO 

MS 

PCL2 

STCRE 

0 

TO 

MS 

PCL3 

STCRE 

0 

TO 

MS 

PCL4 

STCRE 

0 

TO 

MS 

CCL1 

STORE 

0 

TO 

MS 

CCL2 

STCRE 

0 

TO 

MS 

CCL3 

STORE 

0 

TO 

MS 

CCL4 

USE  D:  CLOSE  1 

DO  WHILE  .  NCT .  EOF 

STORE  DATES  TO  MlCATES 


STORE  3  (MrDATES  ,11,5)  TO  MS  :  OD  AT 
STORE  $  (MzDATES  ,36,5)  TO  MS  :  C  D  A  T 

IF  $  (MS  :  CCAT,  1  ,  2)  =  $  (MS:CJUL,  1 ,2) 

IF  M  S  :  C  D  AT  >  M  S  :  C  J  0  L 1  .AND.  MS:  CDAT<MS  :  CJ  UL 
STORE  MS : C  FC VD  +  1  IG  MS:CRCVD 


IF  MS: C  DAT  <>  '  ' 

STORE  VAL  (I  (MS:CDAT,3,3)  )  TO  V:CDAT 
STORE  VAL  ($  (MS:  ODAT,  3 ,3)  )  TO  V:CDAT 
STORE  V :  CDAT  -  V:ODAT  TO  V  :  T I M  E  N 
STORE  ST3  (V  :TIM  EN  ,  3)  TO  MSiTIME 
RELEASE  ALL  LIKE  V:* 

DO  CASE 

CASE  MS: TIMS  <  '61' 

STORE  M S : C C L 1  +  1  TO  MS:CCL1 
CASF  MS: TIMS  <  '121' 


^  ^ 
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-7037  .i  5  :  C  C  L  2  ♦  I  :  } 
CASE  MS:TI  ME  <  '18  1' 

STORE  HS:CCL3  +  1  ~ 
CASE  A  S :  1 1 3  S  >  1  1 63’ 

END  CASE  . . 

END  IF 
END  I  E 

ENDIF  <  CASE  OPENED  IN  THE  CURRENT  YEAR  > 


*****  j p  CASE  IS  IN  PREVIOUS  YEAR 

IF  $  (MS  :  CDAT,  1  ,  2)  =  $  (IIS:  PJUL,  1 , 2) 

IF  M  S  :  C  D  A  T  >  MSrPJULI  .AND.  MS : CD AT< MS : PJ UL 
STORE  MS : FTOT  +  1  TO  MSrPTOT 


IF  MS : C  D AT  <>  *  ' 

STORE  VAL  (3  (MS:  CDAT,3  ,3)  )  TO  V:CDAT 
STORE  VAL  (5  (MS:  ODAT,  3 ,3)  )  TO  VrODAT 
STORE  V : CDAT  -  VrODAT  TO  VrTIMZN 
STORE  STR  (VrTIMZN,  3)  TO  MS:  TIME 
RELEASE  ALL  LIKE  V:* 

DO  CASE 

CASE  MS: TIME  <  ' 61 ' 

STORE  MSrPCLI  +  1  TO  MSrPCLI 
CASE  MS:  TIMS  <  M21' 

STORE  MS : PCL2  +  1  TO  MS:PCL2 
CASE  MS: TIME  <  *181* 

STORE  MS : PCL3  +  1  TO  MS:?CL3 
CASE  MS : TIME  >  '180' 

STORE  MS : PCL4  +  1  TO  MSrPCLI 

SN  DC AS  E 
ENDIF 
ENDIF 

ENDIF  <  CASE  CLOSED  IN  THE  PREVIOUS  YEAR  > 

*****  ii  CASE  Is  jji  OLDEST  YEAR 

IF  $  (MS:  CCAT,  1,2)  =  $  (MSrOJUL,  1  ,2) 

IF  MSrCDAT  >  MSrOJULI  .AND.  M S : C D AT< MS : CJ UL 
STORE  MS : OTOT  +  1  TO  MSrOTOT 

*****  ii  CASE  IS  CLOSED  <  IT  SHOULD  3E  TO  3E  IN  THIS  FILE  > 

IF  MS: C  DAT  <>  »  ' 

STORE  VAL  ($  (MS:  CDAT,  3 ,3)  )  TO  V  :  CDAT 
STORE  VAL  (S]MS:0DAT.3  ,3))  TO  V  :  CD  AT 
STORE  V :  CDAT  -  VrODAT  TO  VrTIMZN 
STORE  STR  (VrTIMEN,  3)  TO  MSrTIME 
RELEASE  ALL  LIKE  V:* 

DO  CASE 

CASE  MSrTIME  <  '61 ' 

STORE  MSrOCLI  ♦  1  TO  MSrOCLI 
CASE  MSrTIME  <  '121' 

STORE  M S : 0 C L 2  +  1  TO  MS:0CL2 
CASE  MS: TIME  <  ' 18 1 ' 

STORE  M S : 0 C L 3  +  1  TO  MS:0CL3 
CASE  MSrTIME  >  '180' 

STORE  MS :0CL4  +  1  TO  MSrCCLU 

ENDCAS  E 
ENDIF 
END  I  E 
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IF  1  (IS  :  CD  AT,  1 ,  2)  OS  (MS  :C 
i  ( d  S :  CCAT,  i,  2)  OS  { M 3  : ? . 
S  ( H  3  :  C  £  A  T  ,  1 , 2  j  5  { M  3  :  C  . 
STORE  MS : CLERR  +  1  ' 
STCEE  CASE  TO  MS:  CA: 
Sri  ALTEENATE  ON 
?  MS  :  RO  W  ,  1  0  SAY  'C< 
?  MS;  ROW,  18  SAY  MS, 
?  MS;  SOW  ,30  SAY  $(, 
+  $ (MS:  OEAI, 3 ,2)  ♦ 
?  MS:  ROW  ,49  SAY  $C 
;  135;  ^  jn  i ,  j  ,  t/  1  / 
STORE  MS  :  ROW  +  1  T< 
SEI  ALTERNATE  OFF 

EN  D I  F 

STORE  M  S :  CLTOT  +  1  TO  MS;< 

SKIP 

ZNCDO  <  SEAFCH  FOR  CASE  IN  Ti 
RELEASE  MS  :  CJUL1,MS:FJUL1,  MS 


*****  DETERMINE  WHICH  MONTH  IT  IS  FOR 
DO  CASE 

CASS  $  (MS;  ED  ATE,  1,2)  =  '0 

STORE  'JANUARY'  TO  M: 
CASE  S(MS;EDATE,  1,2)  =  '  0, 

STORE  'FEBRUARY'  TO  , 
CASE  $  (MS:EDATE  ,  1  ,  2)  =  '0 

STOFE  ' MARCH'  TO  MS: 
CASS  $  ( M  S :  EDATE  ,1-2)  =  'CM 

STORE  'APRIL*  TO  MS:i 
CASE  3  (  MS  :  EDATE  ,  1 ,  2)  =  '0: 

STOFE  'MAY1  TO  MS:  MO 
CASE  S  (MS:EDATE,  1,  2)  =  'O' 

STORE  'JUNE'  TO  MS:M' 
CASE  $  (  M  S  :  E  D  AT  E  ,  1,2)  =  •  O' 

STORE  'JULY'  TO  MS :  M' 
CASE  S  (  M  S  :  ED  ATS  ,1,2)  =  '  Q. 

STORE  'AUGUST'  TO  MS 
CASE  $  ]  M  S  :  EDATE  ,1,2)  =  'O' 

STORE  'SEPTEMEER'  TO 
CASE  $(  M  S  :  EDATE  ,  1,2)  =  '1 

STORE  'OCTOBER'  TO  M: 
CASS  5  (  M  S  :  ED  ATE  ,  1 ,  2)  =  '  1 

STORE  'NOVEMBER'  TO 
CASE  5  (MS:EDATE,  1,  2)  =  '  1 

STORE  'DECEMBER'  TO 

ENCCASE 


STORE  1  19'  +  $  (MS : OJUL,  1 ,2) 

STORE  '19'  +  J  (MS:  PJUL,  1  ,2) 
STORE  *19'  +  $  (MS :  CJUL,  1  ,2) 

STORE  MS:  OC1 1+ MS:0CL2  +  MS  ;OCL 
STORE  MS:  00  1  ♦  MS:C02  +  MS :  0 
STORE  MS:  005  +  MS  :0CL5  TO  M3:0 

STORE  MS:  PCL  1+MS:  PCL2  +  MS:  PCL 
STORE  MS:  PCI  +  MS  :  F02  +  MS  :  P 
STORE  MS:  ?05  +  MS:PCL5  TO  MS:? 
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STOPS  MS:  CCI1  +  MS:CCL2  +  MS:CCL3  +  :i5:  CCL4  TC  MS: 
ST  CSS  MS:  CO  1  +  MS :  CC2  +  ;1S:C03  ♦  MS:COu  .j  • 
STCF.E  MS:  C05  +  MS:CC  L5  TO  MS:CCASS 

STCF.E  '  0  TO  60  SAYS'  TO  HS:L5L1 
JTCP.2  '61  TC  120  DAYS'  TO  MS  :  LBL2 
ST  CRH  '121  TC  180  DAYS'  TO  MS :  LBL  3 
STCRS  *181  DAYS  OR  OVER'  TO  MS : L3L4 
ST  CRH  •  TOTALS:'  TO  MS  :  L3L5 


SET  FORMAT  TO  PRINT 


3  2,2  5  SAY 

w  J ,  zi  oA  i 

3  4,25  SAY 
a  5,25  SAY 
a  5,42  SAY 

+  '/' 

2)  7,28  SAY 
a  7,48  SAY 
S  9,27  SAY 
a  9,44  SAY 


U1  (  1 

a  io 

a  ii 

a  1 1 
a  13, 

a  is 
a  is 
a  15 
a  17 
a  17 
a  17 
a  19 
a  19 
a  19 
a  ;i 
a  21 
a  21 
a  22 
a  22 
a  22 


,42  SAY 
,25  SAY 
,40  SAY 
,10  SAY 

+  ' 

,15  SAY 
,33  SAY 
,48  SAY 
,15  SAY 
,33  SAY 
,48  SAY 
,15  SAY 
,33  SAY 
,48  SAY 
,15  SAY 
,33  SAY 
,48  SAY 
,15  SAY 
,33  SAY 
,48  SAY 


'  CODE  9  1u2  TECHNICAL  5P. 

'  ^  ci  Y  ft  i 

'  MONTHLY  STATUS  REPORT  ' 

'  THRU* 

$  (MS:  ED  ATE,  1  .2)  ♦'/•  +  $  (MS:  ED  ATE,  3, 
♦  3  (MS:  EEATE,  5,2) 

'  JULIAN  DATE  ' 

MStCJUL 

'  MONTH  OF' 

MS:  MONTH 
MS : OY  R 

•TOTAL  CASES' 

MS : OCA  S  E 

'  C 

OPEN' 

MS : LBL  1 
MS: OCL  1 
MS :001 
MS:  LBL2 
MS : OCL 2 
MS :  002 
MS: LBL 3 
MS: OCL 3 
MS : 003 
MS: LBL4 
MS: OCL 4 
MS: 004 
MS : LBL  5 
MS : OCL  5 
MS :005 


*****  DATA  FOR  THE  SECOND  YEAR  OUTPUT 

a  25,42  SAY  MS:PYR 
3  27,25  SAY  'TOTAL  CASES' 
a  27,40  SAY  MS  :  PC  A  S  E 

a  29,  1  0  SAY  '  C 

♦'  OPEN' 

a  31,15  SAY  MS :  LBL  1 
a  21,33  SAY  MS :  PCL  1 
3  31,48  SAY  MS  :  P0 1 
a  33,  1  5  SAY  MS:  LBL2 
a  33,  3  3  SAY  MS:  PCL  2 
a  33,  4  8  SAY  MS:  P02 
a  35,15  SAY  MS  :  LBL  3 
a  25,  33  SAY  MS :  PCL  3 
a  35,  4  8  SAY  MS :  P03 
a  37,  1  5  SAY  MS:  LBL4 
a  37,  3  3  SAY  MS  :  PCL  4 
a  37,  4  8  SAY  MS:P04 
a  39,15  SAY  MS  :  LBL  5 
3  29,  3  3  SAY  MS:PCL5 
3  39,4  8  SAY  MS  :  P05 

*****  DATA  FOR  THE  CURRENT  YEAR  OUTPUT 
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r.ij  ‘j* 


EJECT 

*****  SECOND 


5  -1 2 »  4  2 
a  44,25 
i)  44,40 
qj  46,  1  0 

a  48,  1  5 
a)  48,33 

a  48,48 

a  50,  1  5 
a  50,33 
a  50,43 
a  52,15 
a  52,33 
a  52,48 
a  54,15 
a  54,33 
a  54,48 
a  56,15 
3  56,3  3 
a  56,4  8 


PAGE 


a  2,25  SAY 
a  4,25  SAY 
a  6,25  SAY 
a  8,25  SAY 
a  8,42  SAY 
•  /»  ■ 


MS:C:R 

'CO  ? hL  CASES' 
M  S  :  CC  A  S  E 

I 


LBL  1 
CCL  1 
C01 
LBL  2 
CCL  2 
C02 
LBL  3 
CCL  3 
CO  3 
LBL  4 
CCL  4 
CO  4 
LBL  5 
CCL  5 
C05 


REPORT 

•  CODE  9142  TECHNICAL  BRANCH' 

'  QUALITY  DEFICIENT  MATERIAL ' 

'  COMMAND  KEY  INDICATORS  ' 

'  AS  OF' 

$(  MS:  ED  ATE, 1,2)  ♦'/'♦$(  MS:  ED  ATS, 3, 2)  +  ; 


a 

10, 

25 

SAY 

'CASES  R 

a 

10, 

44 

SAY 

MS:  MONTH 

a 

10, 

62 

SAY 

MS : CYR  + 

a 

10, 

72 

SAY 

MS : CRC  VD 

a 

12, 

10 

SAY 

4.  t 

• 

a 

14, 

1  5 

SAY 

MS: LBL  1 

a 

14, 

33 

SAY 

MS: CCL  1 

a 

14, 

48 

SAY 

MS:C01 

a 

16, 

1  5 

SAY 

MS : LBL  2 

a 

16, 

33 

SAY 

MS: CCL 2 

a 

16, 

48 

SAY 

MS: C02 

a 

18, 

1  5 

SAY 

MS : LBL  3 

a 

18, 

33 

SAY 

MS: CCL  3 

a 

18, 

48 

SAY 

MS :C03 

a 

20, 

15 

SAY 

MS:  LBL4 

a 

20, 

33 

SAY 

MS :CCL  4 

a 

20, 

48 

SAY 

MS: C04 

a 

22, 

1  5 

SAY 

MS : LBL  5 

a 

22, 

33 

SAY 

MS: CCL 5 

a 

22, 

48 

SAY 

MS :C05 

OPEN1 


CLOSED' 


EJECT 

*****  THIRD  PAGE  OF  FEPORT 


1  \%l\ 

a  4,25 
a  5,25 
a  5,42 

a  7,28 
a  7,48 
a  9,27 
a  9,44 

a  12,20 

a  12,64 

a  14,20 
a  14,6  5 


SAY 
SAY 
SAY 
SAY 
SAY 
'/'  * 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


'  CODE  9142  TECHNICAL  BRANCH* 

'  QUALITY  DEFICIENT  MATERIAL' 

'  MONTHLY  STATUS  REPORT  ' 

'  THRU' 

$  (MS:  ED  ATE,  1  ,2)  ♦•/•+$  (MS:  EDATE,  3, 2)  +; 
2  (M  S  :  ED  AT  E ,  5 , 2) 

'  JULIAN  DATE  ' 

K  S :  C  JUL 

'  MONTH  OF' 

MS:  MONTH 

'TOTAL  RECORDS  ON  OPEN  FILE:' 

MS: OPT 0 T  -  1 

'TOTAL  RECORDS  ON  CLOSED  FILES:' 

MS:  CLTCT 


[♦] 


a 


a 

a 


16.20  SAY  • 

♦ • FII-. 

1b,  64  SAY  3S:GPEFE 

18.20  3  AY  ’RECORDS 

j.1  P  TT  K  •  « 


»  ESCOR  DS 

p  •  i 

D 


KITH  INVALID  DATES,  0 


-  1 


r-  y  i*n  f  r 


INVALID  DATES,  C 


a 

a 


SET 

SET 


13,65 
22,  35 


FILE: 

A  v  KSsCLSSi 
c;  a  y  •  E  >n  OF 


ALT  ERNATE 
ALTERNATE 


REPORT ' 


Or  ; 
TO 


E  JrCT 

SET  FORMAT  TO  SCREEN 

RELEASE  ALL  LIKE  MS:* 

ERASE 
PET  fJ P.  N 

*****  EM E  OF  PROGRAM 


XVIII.  SORTED  LISTING  REPORT  MENU 

***************************  ******jjt*******c**********£.*;i::!<:p*** 


**  *♦ 

**  DATE:  22  JANUARY  1984  ** 

**  VERSION:  1.0  ** 

**  MODULE  NAME:  SUPBFT2  ** 

**  MCDUIE  PURPOSE:  PROVIDE  MENU  OF  SORTED  LISTING  ** 

**  REPORTS  FOR  THE  SUPERVISOR  ** 

**  ** 

**  MODULE  INTERFACE  DEFINITION  ** 

**  INPUTS:  C:WHO,  C:JULIAN  ** 

**  OUTPUTS:  NONE  ** 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  ** 

**  DISPLAYS  MENU  FOR  SUPERVISOR  TO  CHOOSE  DESIRED  ** 

**  REPORT.  CAUSES  REINDEXING  OF  APPROPRIATE  FILE  ** 

**  TO  PRODUCE  CURRENT  VALUES  FOR  REPORT  GENERATION  ** 

**  RESULTS  ARE  STORED  ON  D:  DRIVE  AS  A  'TXT*  FILE  ** 

**  FOR  LATER  ACCESS.  REPORT  MAY  BE  PRINTED  BY  USING  ** 

**  'TYPE'  FUNCTION  OF  OPERATING  SYSTEM.  ** 

**  PROCESSING  SHOULD  BE  ACCOMPLISHED  DURING  'OFF*  ** 

**  TIME  PERIOD.  ** 

**  $$ 

**  S  UPERCR  DIN  AT  E  MODULES:  SUPMENU1  ** 

**  SUBORDINATE  MODULES:  SU PRPT 1 , S UPRPT2 , S UPRPT3 , S UP RPT 4  ** 

**  AUTHOR:  J.G.  BOYNTON  ** 

**  ** 


******  **  ***  ***  *****************************  **************  ** 

STORE  T  TO  C:TRU  E 
DO  WHILE  C  :  TBU  E 
ERASE 

♦ 

STORE  •  •  TO  V:CHOICE 
TEXT 


*****  SORTED  LISTING  REPORTS  AVAILABLE  ***** 


1  -  OPEN  FILE  BY  CASE  AND  ANALYST 

2  -  OPEN  FILE  BY  ITEM  MGR  AND  ANALYST 

3  -  OPEN  FILE  BY  COG,  SMIC,  OPEN  DATE 

4  -  CLOSED  FILE  BY  CREDIT  CODE,  CASE 

5  -  EXIT 


ENDTEXT 

a  19,40  GET  V:CHOICE 
READ 

* 

IF  V : CHOICE  >='1'  .AND.  V;CHOICE  <  '5' 

ERASE 

2  12,20  SAY  '  THESE  REPORTS  WILL  TAKE  SOME  TIME  TO' 

2  12,20  SAY  '  GENERATE.  IF  YOU  DECIDE  TO  CONTINUE' 

a  14,20  SAY  '  THE  TERMINAL  MAY  NOT  BE  USED  FOR  ANY' 

2  15,20  SAY  '  OTHER  PROCESSING  UNTIL  AFTER  '; 

♦  •COMPLETION  • 

2  23,  15  SAY  'PRESS  1  -  TO  ABORT,  ANY  OTHER  KEY  TO'; 

+  '  CONTINUE' 

WAIT  TO  V:  BAIL 
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IF  V:BAIL  =  *  1' 

RELEASE  AIL  LIKE  V:* 

RELEASE  C:T?.UE 
RETURN 
ENDIr 
CO  CASE 

r  i  <r  r  y.  r-p  n  J  r' t?  =  t  i  < 

*****  FILE~D:SUPRPT  1  .TXT  ’iS  CREATED  TO  PROVIDE  THE  REPORT 
*****  D :  SUP EPT  1 .  NDX  IS  INDEXED  ON  WHO+CASE 
RELEASE  ALL  LIKE  V:* 

USE  D : CPEN 1  INDEX  DiSUPRPTl 

REINDEX 

GOTO  TCP 

SKIP 

SET  TALK  OF? 

STORE  0  TO  P:  COUNT 
STORE  C  TO  P : TOTAL 
SET  FORMAT  TO  SCREEN 
ER  AS  E 

SET  ALTERNATE  TO  D:SU?R?T1 
SET  ALTERNATE  ON 
?  'DATE:  1  ,  D  AT  E  () 


***** 


+  •  QD R  CPEN  FILE  EY  ANALYST  &  CASE 
-> 


***** 


7 

+■  * 

+  • 

♦  • 

♦  •  COG 

♦  « 

♦  •  01 


CTY  EXT  9 

OPEN 

•  CAS  p  *  * 

SM  FSC  NATO  FIIN  *  ; 

CAT  NOMEN 

PRICE 

PRICE  Q  ORG  DF  C 
CONTRACT  NUMBER  DATE 


NS N  /  PART'  ; 

UNIT* ; 
D'  • 

SCREENING1 


uic  •  ; 

DEFNT 

i  • 

code/date’ ' 


STORE  0  TO  P: PAGE 
STORE  5  TO  ROW 
DO  WHILE  .NOT.  EOF 

STORE  P-.T0TAL+1  TO  P :  TOT  AL 

?  '  '  , CASE , '  ' , COG , 1  ' , SM ,  '  '  , NSN  ,  '  •; 

,CAT, '  '  ,  $(N0MEN,1,9)  •  ',UIC,‘  ',UI,; 

'  ' .UP  RC, '  ' , QTYDEF, '  EPRC,'  «  ,09Q; 

.'  ' ,0  RG , '  '.DEF  '.DOC. 5  •  NUM,' 

J  (DATES,)  1,5)  ,'  *  ,SCR,'/',S  (DATES,  21  ,5) 
STORE  ROW+1  TO  ROW 
SKI? 

STORE  PiCOUNT+1  TO  P:COUNT 
IF  ROW  >  60 
ERAS  E 
?  CH  R  ( 1  2) 

STORE  0  TO  ROW 

STORE  P:?AGE+1  TO  P:PAGE 

7 

7 

?  *  PAGE  ' , P: PAGE 


+ '  NSN  /  PART' ; 

♦  • 

♦  ' 

+  '  QT  Y 

+  '  EXT 

+  » 

♦  '  D 

+ ' SCREENING' 

?  '  CASE'; 


UNIT 


OPEN 
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COG  S  M 


♦  '  F  SC 

+  ' nato  fii: 

*■  *  UIC 

♦  •  iJI 

+  * 

+  '  PRICE 
+ • CONTRACT 
+ '/DATS  • 


PRICE 


^  0 1\  G 

NUM3ER 


ENDDO 


STORE  ROW+4  TO  ROW 
ENDIF  <  P  AG  E  IS  FULL> 


nc 


c  ! 

CODE' 


TOTAL  CASES: • ,P:TOTAL 


CASE 


7  I  *********  *******  **  ***  *  **  ****  ***  **  I 

+ '  END  CF  OPEN  FILE  REPORT  BY  ANALYST  G  CASE': 
♦ •  *4******************************** » 

?  CHR  (12) 

SET  ALTERNATE  TO 
?  CHR  (7) 

?  CHR  (7) 

E  R  AS  E 

<2  12,20  SAY  '  YOU  MAY  RECEIVE  YOUR  COG, OPEN' 
+'  FILE  REPORT  ON' 

a  13,20  SAY  '  DrSUPRPT1.TXT  ' 

3  20,20  SAY  '  PRESS  ANY  KEY  TO  CONTINUE' 

WAIT 

V:CHOICE  =  '2' 


SAY  ' 

+ ' 

SAY  ' 
SAY  ' 


YOU  MAY  RECEIVE  YOUR  COG, OPEN' 
FILE  REPORT  ON' 

DrSUPRPT1.TXT  ' 
PRESS  ANY  KEY  TO  CONTINUE' 


*****  FILE  E:SUPRPT2  .TXT  IS  CREATED  TO  PROVIDE  THE  REPORT 
*****  D: SUPRPT2. NDX  IS  INDEXED  ON  ACTPT+WHO 


V.NUX  IS  lNUEAtiJ  UN  AUlPi  ♦  "  i 

RELEASE  ALL  LIKE  V:* 

USE  D :  OPEN  1  INDEX  D:SUPR?T2 

REINDEX 

rsriTn  t  r  c 


ulihui/a 

GOTO  TCP 
SKIP 


SKIP 

SET  TALK  OFF 
STORE  0  TO  P: COUNT 
STORE  0  TO  P: TOTAL 
SET  FORMAT  TO  SCREEN 
ERASE 

SET  ALTERNATE  TO  D:SUPRPT2 
SET  ALTERNATE  ON 
?  'CATE:  '  ,  D AT E  () 


+ » 

+'  OPEN  FILE  EY 
+  •  ANALYST 
•? 


***** 


*****  QDR' 

ITEM  MANAGER  6 

NS  N  /  PART'  j 


+  • 

♦'  UNIT 

+  '  EXT 

+  ' 

+  '  SCREENING' 

?  '  CASE'; 

♦  '  COG 

♦  •  Cl 


♦  '  UI 
+ ' 


PRICE 


PR  ICE 

n 


OPEN 

FSC  NATO  FI IN  1 
NOMEN  UIC 
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***** 
***  *  * 


♦ ' 

7 

store 

STORE 
DO  WH 
S 


CONTRACT  NOME ER 


DATE 


codl/dat: 


0  TO  2:  PAGE 
c  'T’O  'OH 
TIE  .  NO  T  .  EOF 
TORE  ?: T OIAL+ 1  TO  ?: TOTAL 

?  1  •  ,CASEf'  '  ,  CO  G ,  1  •  SM  .  •  ! 

•  *  , CAT,'  *,$(  NOMEN,  1,9)  ,  5  1 

•  '  ,UI,'  '  .UPRC,'  '  , QTYDEF , ' 

EPRC,  '  •  0 9Q  ’  ,  ORG ,  ' ,  D  E  F  1 

'  ‘  1  •  _5/naT  ‘  * 


ENDDO 


^  #  f  \J  L\\J  f  f  L/  U  L  f  '  ,  DOC 

,NUM,‘  (DATES,  11,5)  ,•  *,SCR,'/ 

,  $  (DA  T  ES  ,  2  1 , 5) 


( : 


STORE  ROW+1  TO  RO W 
SKIP 

STORE  P:COUNT+1  TO  PlCOUNT 
IF  ROW  >60 
ERASE 
?  CH  F  (  1  2) 

STORE  0  TO  ROW 
STORE  P : P  AG  E+ 1  TO  P:PAGE 
■? 


PAGE  ',  PIPAGE 


NSN  /  PART ' ; 


TY 


EXT 


UNIT 

9 


OPEN 
CASE'  ; 


SCREENING’ 


NATO  FIXN 
UIC 
PRICE 

PRICE  Q  ORG 
C  CONTRACT  NUMBER 
CODE/DATE  • 


FSC 

EN 

UI 


COG 

CAT 


SM 

NCM 


DEFNT 

CF 

DATE 


SIORE  ROW  +  4  TO  ROW 
ENDIF  <P  AGE  IS  FULL> 


7 
7 

7 
7 
7 
7 

7 

7  i  ****** ***************************  i 

+  '  END  CF  OPEN  FILE  REPORT  BY  ITEM  MANAGER  &• 


TOTAL  CASES ,P :TOTAL 


♦ ' ANALYST 
?  CHR  (12) 

SET  ALTERNATE  TO 
?  CHR  (7) 

?  CHR (7) 

ERASE 

d  12,20  SAY  • 

+  • 

a  13,20  SAY  • 
a  20, 20  SAY  • 
WAIT 

CASE  V:  CHOIC  E  =  ’3’ 


YOU  MAY  RECEIVE  YOUR  COG, OPEN’ 
FILE  REPORT  ON' 

D  :  SUFRPT2. TXT  ' 
PRESS  ANY  KEY  TO  CONTINUE' 


FILE  C:SUPRPT3  .TXT  IS  CREATED  TO  PROVIDE  THE  REPORT 
D:SUPBPT3.  NDX  IS  INDEXED  ON  COG+SM+S  (DATES, 11 ,5)  +CASE 
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RELEASE  ALL  LIKE  V:* 

USE  D  :  C  t  E  N  1  INDEX  D:SUPR?T3 

REINDEX 

SC  TO  TCI 

SKIP 

SET  TALK  OF? 

STORE  0  TO  ?: COUNT 
STORE  C  TO  P: TOTAL 
SET  FOEMAT  TO  SCREEN 
ER  ASE 

SET  ALTERNATE  TO  D:SU?RP?3 
SET  ALTERNATE  ON 
?  'CATE:  ',DATE() 

? 

?  5  '  ; 
*•  *****  QDF.  OPEN  FILE  BY  •; 

+ • COG, SEIC,OPEN  DATE  5  CASE  *****  • 

■? 

?  •  NSN  /  PART’ ; 

+  •  • 
+  •  UNI  I' 

+'  QTY  EXT  9  1 

+  *  D  OPEN  SCREENING1 

-?  i  CkS  E '  • 

+  •  ’  COG  SM  F SC  NATO  FI IN  * 

+  •  CAT  NOMEN  UIC  UI  FBIC' 

+ • E  DEFNT  PRICE  Q  ORG  ' 

CODE/’ ; 


+'  DF  C  CONTRACT  NUMBER  DATE 

+  '  DAT  E  ' 

■? 

STCRE  0  TO  P: PAGE 
STORE  5  TO  ROW 
DO  WHILE  .NOT.  EOF 

STCBE  P: TOTAL* 1  TO  P : TOTAL 


?  •  '.CASE,'  '.COG,'  ',SM,'  '.NSN.; 

•  '.CAT,'  '  ,$  (NOMEN,  1  ,9)  ,  •  ’,UIC,'  1 

.UI,'  ' , OPRC, 1  .  ' , QTYDEF, '  *,EPRC,; 

1  ' , 0  9Q, *  'ORG,'  *  ,  DEF  .  *  *,DOC  « 
,NUM, '  f .$(DATES, 1 1,5) ',SCH,‘/',; 
$  (DATES,  *1  ,  5) 

STORE  ROW* 1  TO  ROW 
SKIP 

STORE  P : CO UNT+ 1  TO  P:COUNT 
IF  ROW  >  60 
ERASE 
?  CHS  ( 1  2) 

STORE  0  TO  ROW 

STORE  P  :  P  AG  E+  1  TO  P:PAGE 


PAGE  ',P:PAGE 


♦ ‘NSN  /  PART' ; 

♦  '  ' 

♦  »  UNIT  ' 

♦ '  QTY  EXT  9  • 

+  '  D  ' 

+»  OPEN  SCREENING' 

?  '  CASE'; 

+  •  COG  SM  FS' 

+  ‘C  NATO  FI  IN  CAT  NOMEN  ' 

♦  '  UIC  UI  PRICE  ’ 

♦ 'DEFNT  PRICE  C  05» 

+'G  DF  C  CCNTRAC' 

+'T  NUMBER  DATS  CODE/DATS  ' 

•p 

STORE  ROW*4  TO  ROW 
ENDIF  <P  fi G E  IS  FULL> 
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kJl_i 


EN  DDO 


?  *  TOTAL  CASES : ‘ ,? : TOTAL 

■p 

?  I  4  *****  ***  44*44  **  44444444444*4*  A  *  *  71 

+ 1 ND  OF  OPEN  FILS  REPORT  BY  COG ,SMIC , OPEN  '; 

+  ' DAT  E  6  CASE  »****#*#***4**»****#**44***4*i 

+  i  ****♦) 

?  CH  R  (  1 2) 

SET  ALTERNATE  TO 
?  CHR  (7) 

?  CHR  (7) 

ER  AS  E 

3)  12,20  SAY  '  YOU  MAY  RECEIVE  YOUR  COG, OPEN'; 
♦ ' FILE  REPORT  ON' 

d>  13,20  SAY  '  D:  SUPRPT3.TXT  ' 

S  20,20  SAY  •  PRESS  ANY  KEY  TO  CONTINUE' 

WAIT 

CASE  V : CHOIC  E  =  '4* 

*****  FILE  D:SUPRPT4  .TXT  IS  CREATED  TO  PROVIDE  THE  REPCRT 
*****  D:SUPEPT4. NDX  IS  INDEXED  ON  CR+CASE 

RELEASE  ALL  LIKE  V:* 

USE  D : CLOSE1  INDEX  D:SU?RFT4 

REINDEX 

GOTO  TCP 

SKIP 

SET  TALK  OFF 
STCRE  0  TO  P:  COUNT 
STORE  0  TO  P: TOTAL 
SET  FOFMAT  TO  SCREEN 
ERASE 

SET  ALTERNATE  TO  D:SUPRPT4 
SET  ALTERNATE  ON 
?  'CATE:  '  ,  D AT E  () 


*****  QDR  CLOSED  FILE  EY  ' 

♦•CREDIT  CODE  S  CASE  *****  • 

p 

?  '  NSN  /  PART'  ; 

♦ » 

♦  '  UNIT' 

♦'  QTY  EXT  9  • 

♦'  D  OPEN  SCREENING' 

?  '  CASECOG  SM  FSC  NATO  FUN 

♦  •  CAT  NO  MEN  UIC  UI 

+ '  E  DE  FNT  PRICE  Q 

♦  '  DF  C  CONTRACT  NUMBER  DATE 

♦  'DATE  ' 

p 

STORE  C  TO  ?:  PAGE 
STCRE  5  TO  ROW 
DO  WHILE  .NOT.  EOF 

STCRE  P :T  OT AL+ 1  TO  P : TOTAL 


t’RIC' 
CRG  ' 
CODE/' ; 


?  '  '  ,  C  AS  E  , '  '.COG,'  '  ,S  M  ,  '  '  ,  NS  N. 

'  '  ,  C  AT  ,  '  '  ,$  (NOMEN,  1,9),  '  ',UIC.‘ 

,UI,'  '  , UP RC ,  '  '  , QT YDEF, '  ' , EFRC.  ; 

'  ',09Q  »  '  ORG,'  '  ,  DEF  . '  ',DOC.'  *; 

,  N  U  M  ,  '  »  ,1  (DATES,  1  1 ,  5)  ,  1  ',SCR,V',; 

SjfDAT  ES  ,  21  .  5j 
STORE  RO  W ♦  I  TO  ROW 


STOR 

SKIP 
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STORE  P : COUNT* 1  TO 
IF  RO  W  _  >  _6  3 
2  R  AS  E 
?  C  H  E  ( 1  2 } 

STORE  0  TC  ROW 


S  TORE 


TC  ROW 
P  AG2+  1 


:  CO  UN’’ 


PAGE 


ENDDO 

-> 


+  •  NSN 

*  » 


PART*  ; 


UNIT 

'XT 


+ '  OPEN  SCREENING • 

?  •  CASE  COG  SM  FS '  ; 

+  'C  NATO  FI IN  CAT  NOMEN  ' 

OIC  UI  PRICE  * 

+ ' DEFNT  PRICE  Q  OB’ 

♦  '  G  DF  C  CONTFAC* 

*'T  NUMBER  DATE  CODE/DATE  * 
•> 

STORE  ROW+4  TO  ROW 
ENDIF  < P AG E  IS  FULL> 


TOTAL  CASES: '  #?  :  TOT  AL 


■7  t  *****  ********  ***  **  **:$:  **********  *  I  . 

♦  J  END  CF  cLOSED^FILE^RSPORT<[BY^CREDIT^COCE^ 

?  CHR  (  12) 

SET  ALTERNATE  TO 
?  CHR  (7) 

?  CHR  (7) 

ERASE 

a)  12,20  SAY  •  YOU  MAY  RECEIVE  YCUR  REPORT  BY' 
+  '  CREDIT  CODE  &  CASE  ON' 
a  13,20  SAY  «  D : SUPRPT4 . TXT  ' 

a  20, 2C  SAY  '  PRESS  ANY  KEY  TO  CONTINUE' 


a  13,20  SAY  ' 
a  20, 2C  SAY  ' 

WAIT 

CASE  V:  CHOICE  =  '5' 

RELEASE  ALL  LIKE  V:* 
RELEASE  C:TRUS 
RETURN 

ERASE 

ENDCASE 


ELSE 


IF  V :CHOICE  =  *5' 

RELEASE  ALL  LIKE  V:  * 
RELEASE  C:TRUE 
RETURN 

ELSE 


WAIT 

ENDIF 

ENDIF  <V:CHCICE> 
ENDDO  <C:TRUE> 


PLEASE  ANSWER  WITH  A  1  -  5  ONLY' 
PRESS  ANY  KEY  TO  CONTINUE' 
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XIX.  CASH  R  2  AS  ISM SENT  MODULE 


**  DATE:  22  JANUARY  1984 
**  VERSION:  1.0 
**  MODULE  NAME:  C-EEASGN 

**  MODULE  PURPOSE:  REASSIGN  CASE  FROM  ONE  ANALYST  TC 
**  ANOTHER 

**  MODULE  INTERFACE  DEFINITION 
**  INPUTS:  C  :  W  HO  ,  C : JUL I  AN 

**  OUTPUTS: 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION: 

** 

**  RECEIVES  THE  CASE  NUMBER  AND  TWO  ANALYSTS  TO  EE 

**  INVOLVED  IN  THE  TRANSFER.  BEFORE  TRANSFERING  CASE 

**  THE  DATABASE  IS  CHECKED  TO  INSURE  UPDATE  OF 

**  ANALYST  STATISTICS.  RETURNS  FOR  ANOTHER  CASE  TO 

**  BE  ASSIGNED  CF  FOR  TERMINATION  OF  PROGRAM. 

** 

**  SUPEFOREINATE  MODULES:  UTILMENU 
**  SUBORDINATE  MODULES:  XDEHNDLR 
**  AUTHOR:  J.G.  BOYNTON 
** 

STORE  T  TC  R:CONTINUE 
DO  WHILE  R  :  CONT  I  NU  S 
ERASE 

I  6,24  SAY  ******  CASE  R E- ASS IGN MENT  PROCESSING  ****** 
d)  9.28  SAY  *1  -  RE-ASSIGN  CASE  TC  ANOTHER  ANALYST* 
d>  10,28  SAY  '2  -  FETURN  TO  UTILITY  MENU* 

STORE  '  '  TO  R:  R E F LY 

d)  15,40  GET  S  :RE  PIY 
READ 

DC  WHILE  R: R  E  PLY  <  *1*  .OR.  RtRSPLY  >  *2' 
d>  23,  22  SAY  'ENTER  1  -  2  ONLY*  ♦  CHR  (7) 

3  15,40  GET  R: REPLY 
READ 
ENDDC 
DO  CASS 

CASE  R : R  E  P  LY  =  '2' 

RELEAS  E  ALL  LIKE  R  :  * 

RETURN 

CASE  R: REP  LY  =  *1* 

STORE  '  '  TO  R  :  C AS  E 

ER  ASS 

d>  6,24  SAY  'ENTER  DATA  FOR  CASE  BEING  RE-ASSIGNS 
d)  9,32  SAY  'CASE  NUMBER  '  GET  R:CA3E  ; 

PICTURE  '  99  999  9X  * 

READ 

STCRS  !  (R :  C  AS  E)  TO  R:CASZ 
STORE  R :C  AS  E  TO  M:  KEY 
STCRS  'IS'  TC  M :T Y PE 
DO  XD3HNDLR.PRG 
IF  M:  T  Y  PS  =  '  1 ' 

d>  20,20  SAY  'CASE  IS  CURRENTLY  LOCKED'  *  CHE( 
d)  22,20  SAY  '  PRESS  ANY  KEY  TO  CONTINUE' 

WAIT 

ENCIF 

IF  M:  T Y  ?S< >  '1' 

IF  M:  TYPE  =  •  9  ' 

d)  22,14  SAY  'CASE  DOES  NOT  EXIST  IN  OPEN' 


>  '2' 

CHR  (7) 


•2' 

LIKE 


R : CAS  E 


CASE  BEING 
GET  R : CAS  E 


re- assign: 


LOCKED'  * 
CO  NT  I  N  U  E  ’ 


C  H  E  ( 7) 


EXIST 


OPEN' 


1 


•ILE  -  STRIKE 
-  CHR/7) 


STORE  ' 
STORE  1  ‘ 

DO  WHILE  R 

a  11,10 
a  11,32 


11,55 
1 1 ' 62 
ia,  io 

15,  10 


READ 
SICRE  ' 
DC  WHILE 
3  21 


•  TO  R:NEW 
o  r. :  REFLY 
REPLY 

SAY  'CASE  NUMBER  '  +  1:CASE 
SAY  'MSN  '  +  $  (M:  MSN  ,  1  ,4)  +  '  -' 

+  S  (M:  NSN  ,  5, 2)  +  '  -  •  +  $  (M  :  NSN,  7 , 3) 
+  '  -  •  +  3  ( M :  N S N  ,10,4) 

SAY  ' COG  '  +  M: COG 

SAY  'CAT  '  +  M :  C  A  T 

SAY  'CURRENTLY  ASSIGNED  TO  ’  ; 

♦  1 :  W  H  Q 

SAY  '  RE- ASSIGN  TO  '  ; 

GET  R:NEW 


DC  WHILE  R : REPLY  < • 1 '  .OR.  R :  REPLY  >'3' 

3  21,20  SAY  '1  -  RE-ASSIGN  •; 

+'  2  -  CHANGE  3  -  EXIT' 
a  23,20  SAY  •  •  ; 

GET  R : REPLY 

READ 

ENCDO 

IF  R : REP  L Y  ='  3' 

STORE  •  1 G '  TO  M:TYPE 
DO  X  D3HNDLR. PEG 
RELEASE  ALL  EXCEPT  C:* 

RETU  RN 
ENDIF 

IF  S  (.1:0  ATFS,  46,  1)  ='  *• 

DO  STATISTICS  UPDATE  PROGRAM 

ENDIF 

IF  R  :  RE  P  L  Y=  '  1 ' 

ERAS  E 

a  10,20  SAY  ******  PLEASE  •; 

♦  'STANDBY  ****** 

a  12,20  SAY  'CASE  NUMBER  '  +  M:CASE 
a  13,20  SAY  'IS  BEING  RE-ASSIGNED  ' 

a  15 ,20  SAY  '  FROM  '  +  M: WHO 

a  16  ,20  SAY  '  TO  •  ♦  R: NSW 

3  22,1  8  SAY  •  *****  DC  NOT  •  ; 

♦ ' INTERRUPT  ***** ' 

USE  D : O  PEN  1  INDEX  D : OC AS E 1 , D : CNS N 

STORE  R : N  E  W  TO  1:WHO 

STORE  ' 1C  TO  M:TYPE 

DO  X  CBHNDLR. PR G 

STORE  M  :  C  A  S  E  TO  R:CASS 

RELEASE  ALL  LIKE  M :  * 

STORE  R  :CASE  TO  M : KEY 
STORE  ' 2 E '  TO  M : TYPE 
DO  X  DBHNDLR.  PR G 
STOR  E  '  2C' TO  M : T Y P E 
STORE  R  :  N  E  W  TO  M:WHO 
DO  X  CBHNDLR. PR G 
RELEASE  ALL  LIKE  1:* 

ERAS  E 

STORE  F  TO  R  :  R  S?  L  Y 
ENDIF 

ENDDC  <R:R5PLY> 


ENDIF 

ENDDC  <CC NT INU  E> 


10,20 

12  ,20 

13 ,20 

15  ,20 

16  ,20 
22,18 


*****  OF  PROGRAM 
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UNCLASSIFIED 


F/G  9/2 


ITEM  MANAGER  FILE  UPDATE 


*********** ****************  ******************************** 
**  ** 

**  DATE:  12  JAN  84  ** 

**  VERSION :  1.0  ** 

**  MODULE  NAME:  ADDEUPDT  ** 

**  MODULE  PURPOSE:  ADD,  UPDATE.  OR  DELETE  ITEM  MANAGER  ** 

**  ADDRESS  RECORDS  ** 

**  ** 

**  MODULE  INTERFACE  DEFINITION  ** 

**  INPUTS:  NONE  ** 

**  OUTPUTS:  NONE  ** 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  ** 

**  ALLOWS  THE  ADDITION,  DELETION.  OR  UPDATING  ** 

**  OF  ITEM  MANAGER  ADDRESS  RECORDS.  ACCEPTS  THE  ** 

**  ITEM  MANAGER  CODE,  VALIDATES  THE  EXISTENCE  OF  ** 

**  AN  IM  WHEN  CREATING  NEW  RECORDS,  ALLOWS  THE  ** 

**  RECALL  OF  PREVIOUSLY  DELETED  RECORDS  DURING  ** 

**  UPDATE,  AND  VERIFIES  THAT  NO  ACTIVE  COGS  ** 

**  ARE  ASSIGNED  TO  A  RECORD  BEING  DELETED.  ** 

**  ** 

**  SUPEFORDINATE  MODULES:  UTILHENU  ** 

**  SUEORDINATE  MODULES:  NONE  ** 

**  AUTHCR:  R.  G.  NICHOLS  ** 

**  ** 
**********1*  ************************************************ 

STORE  T  TO  AlCONTINUE 
DO  WHILE  A:  CONTINUE 

*****  DISPLAY  SELECTION  OPTIONS  AND  ACCEPT  CHOICE 


ERASE 

a  6 , 
a  9,: 
a  io, : 
a  ii,; 
a  12,; 

STCBE 
a  15,  < 
READ 


SAY  ******  ITEM  MANAGER  ADDRESS  PROCESSING  ****** 
SAY  *1  -  ADD  ADDRESS' 

SAY  '2  -  UPDATE  ADDRESS* 

SAY  *3  -  DELETE  ADDRESS* 

SAY  *4  -  RETURN  TO  UTILITY  MENU* 

•  TO  A:  REPLY 

GET  A  :RE  PLY  PICTURE  '9* 


*****  VALIDATE  RESPONSE 

DO  WHILE  A:  REPLY  <  *1*  .OR.  A:  REPLY  >  *4* 

3  23,32  SAY  'ENTER  1  -  4  ONLY*  +  CHR  (7) 
a  15,40  GET  A :  REPLY  PICTURE  '9* 

READ 
ENDDO 
DC  CASE 


***** 

***** 


IF  CHOICE  IS  QUIT,  RELEASE  ALL  LOCAL  MEMORY  VARIABLES 
AND  RETURN  TO  CALLING  PROGRAM 


CASE  A:REPLY  *  '4' 

RELEASE  ALL  LIKE  A:* 

RETURN 

*****  xp  CHOICE  IS  ADD,  PROMPT  FOR  ITEM  MANAGER  BEING  ADDED 


CASE  A:REPLY 


192 


STORE 

ERASE 

S  6,20 

3  9,32 

READ 

STORE 

SELECT 


•  to  A:  in 

•  ENTER  DATA  FOR  ITEM  MANGER  BEING  A: 
'ITEM  MANAGER  '  GST  A:  It! 


I  (A :  I  El 
PRIM  Aj 


TO  A :IM 


USE  D: ADDRESS  INDEX  D:IM 
*****  CHECK  FOR  EXISTING  IM  RECORD 

fiKS 

a  22,14  SAY  'RECORD  CURRENTLY  EXISTS  -• ; 

♦  'STRIKE  ANY  KEY  TO  CONTINUE'  ♦  CHR(7) 

WAIT 

ELSE 


STORE 

STORE 

♦ 

STORE 

♦ 

STORE 

STORE 

STORE 

STORE 

STORE 


•  TO  A: TITLE 

•  • 

1  TO  AlCOMMAND 

•  . 

»  TO  A : COMMAND2 
•  TO  A : ATTN 

•  TO  A: STREET 
'  TO  A :CITY 

'  TO  A: STATE 
'  TC  A  :ZIP 


***** 


PROMPT 


AND  ACCEPT 


DATA 


14.16 

15.16 

16.16 
17  ,16 
18,16 
19,16 
19,44 
19^56 


READ 


•TITLE  '  GET  AlTITLE 

'COMMAND  '  GET  A : COMMAN  D 

•COMMAND  2  •  GET  A : COMMAN D2 
'ATTN  •  GET  A : ATTN 

•STREET  •  GET  A : STREET 

•CITY  •  GET  AiCITY 
'  STATE  •  GET  A: STATE 
•ZIP  CODE  •  GET  A: ZIP  ; 

PICTURE  '99999* 


*****  VERIFY  POST  OB  EXIT 


3  21,20  SAY  '1  -  POST  NEW  RECORD  •; 

♦  *  2  -  EXIT' 

STORE  '  •  TO  A: EEPIY3 

a  23,40  GET  AJREPLY3  PICTURE  '9* 

READ 

DO  WHILE  A :  R  E?  L  Y  3  <  '1'  .OR.  A  :  REPLY3  >  '2' 

3  23,40  GET  A : REPLY3 
R  EAD 
ENDDC 

*****  CREATE  NEW  IM  RECORD 

IF  A  :REPLY3  =  '  1 » 

APPEND  BLANK 

REPLACE  IM  WITH  I  (A:  IM)  .TITLE  WITH  ; 

!  (AiTITLE)  .COMMAND  WITH  I  (A  : COMMAND)  .C&MMAND2  WITH; 

!  (A  :  CCMMAND2)  ,ATTN  WITH  !  {  A  ;  ATT N)  ,  ST REET  WITH  !  ( A  I  STREET) 
CITY  SITE  !  (AiCITY)  ,  STATE  WITH  !  (A:  ST  ATE)  ,  ZIP  WITH  AlZIP 
ENDIF 
ENDIF 

*****  If  CHOICE  IS  UPDATE 

CASE  A: REPLY  »  '2» 

STORE  '  '  TO  A : IM 


V-.  ■ 


*****  REQUEST  FOP.  AND  ACCEPT  IM  TO  BE  UPDATED 
ERASE 

2  6,19  SAY  *  ENTER  DATA  FOR  ITEM  MANGER  BEING 

♦  'UPDATED' 

a  9,32  SAY  'ITEM  MANAGER  •  GET  A:IM 
READ 

STORE  !  (A  :  IM)  TO  A  :  IM 
SELECT  PRIMARY 

*****  RETREIVE  IM  RECORD  BEING  UPDATED 

USE  DiADDRESS  INDEX  D:IM 
EIND  &A:IM 
IF  t  <>  0 

a  22,17  SAY  'RECORD  NOT  FOUND  *; 

♦  •-  STRIKE  ANY  KEY  TO  CONT INU  E '  +C  HR  (7) 

WAIT 

ELSE 

STORE  T  TC  A:PROCESS 

*****  U  BECORD  DELETED,  PROMPT  FOR  REACTIVATION  OPTION 


IF  * 

STORE  '  '  TO 
3  18,22  SAY 

3  19,17  SAY 
♦ 

a  21 ,40  GET 
READ 

DC  WHILE  A:  R 
a  23,31  S 
a  21,40  G 
READ 
ENDDO 


A: REPLY  2 

•RECORD  HAS  BEEN  MARKED  FOR  •; 
•DELETION' 

•DO  YOU  WANT  THIS  RECORD  •; 
'REACTIVATED  <Y  OR  N>' 

A IREPLY2  PICTURE  'A* 

EPLY20’  Y'  .AND.  A:REPLY2<>'  N' 
AY  'ENTER  Y  OR  N  ONLY'  *CHR(7) 
ET  A: REPLY2  PICTURE  'A' 


*****  xf  REACTIVATION  REQUESTED 


IF  !  ( A  :REPLY 
a  18,22  S 

a  19,17  S 

a  21,40  s 
RECALL 
ELSE 

STORE  F  T 
ENDIF 
ENDIF 


2)  *  »Y' 
AY  ' 

♦  • 

AY  » 

*  • 

AY  »  • 


0  AlPROCESS 


*****  EFOMPT  FOB  AND  ACCEPT  UPDATE  INFORMATION 


WHILE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
a  14, 

a  is, 
a  16, 
a  17, 

a  is, 
a  19, 
a  19, 
a  19, 


AsPROCESS 
TITLE  TO  AiTITLE 
COMMAND  TO  A:COMMAND 
CCMMAND2  TO  A: COMM  AND2 
ATTN  TO  A : ATTN 
STREET  TC  A: STREET 
CITY  TO  A:CITY 
STATE  TO  A: STATE 
ZIP  TO  A:  ZIP 
16  SAY  'TITLE  »  GET 

16  SAY  'COMMAND  •  GET 

16  SAY  ' COMMAND2  •  GET 

16  SAY  'ATTN  '  GET 

16  SAY  'STREET  •  GET 

16  SAY  'CITY  •  GET  CITY 


STATE  ' 
ZIP  CODE 


TITLE 
COMMAND 
COMMA  N  D2 
ATTN 
STREET 


GST  STATE 
'  GET  ZIP 


PICTURE  *  99999  1 


S  ZAD 

a  21-20  SAT  *1  -  POST  UPRATED  RECORD  •; 

♦  ‘  2  -  EXIT* 

STORE  •  •  TO  A :  REPLY 3 
3  23,40  GET  A : REPLY3  PICTURE  *9' 

*****  PROVIDE  UPDATE/EXIT  OPTION 

READ 

DO  WHIIE  A: R  EPLY3  <  »1»  .OR.  A :REPLY3  >  *2* 
3  22,40  GET  A:  REPLY 3 
READ 
ENDDO 


***** 


IF 


UPDATE 

IF 


!  (A: 
!  (A: 
Cl  I 


A: BEPLY3  <>  •  1  • 

REPLACE  I  a  WITH  !  (Asia)  .  TITLE  W 
TITLE)  -COMMAND  WITH  !  (A : CO MMAND), COMMAND2  WIT 
CCMMAND2)  .  ATTN  WITH  !  (A  :  ATTN)  ,  STR EET  WITH  !  (A 
TY  WITH  !  (A  :  C  IT  Y )  ,  ZIP  WITH  A:ZIP 
ENDIF 

STORE  F  TC  A : PROCESS 
ENDDO 
ENCIF 


ITH  ; 

:  STREET)  , 


*****  jj  CHOICE  IS  DELETE 

TO  A:IH 


CASE  AsREPLY  «  '3' 
STORE  •  ' 


*****  IRC  MPT  FOB  AND  ACCEPT  IB  BEING  DELETED 


ER  ASE 

a"  6,19  SAY  'ENTER  DATA  FOR  ITEM  MANGER  BEING 
♦  'DELETED' 

2  9.32  SAY  'ITEM  MANAGER  •  GET  A:IM 
READ 

STORE  !  (Ail  E)  TO  A:IM 

SELECT  PRIMARY 

USE  D: ADDRESS  INDEX  D:IM 


*****  RETRIEVE  RECORD  BEING  DELETED 


FIND  6A:IM 
IF  *  <>  0 

a  22,17  SAY  'RECORD  NOT  FOUND  •; 

♦  '-  STRIKE  ANY  KEY  TO  CONTINUE  • +CHR  (7) 

WAIT 

ELSE 


*****  ii  ACTIVE  COGS  ARE  ASSIGNED,  DO  NOT  ALLOW  DELETE 


IF  COUNT  > 

a  n.16 

0 

SAY 

'TITLE  '  + 

TITLE 

a 

12,  16 

SAY 

'COMMAND  •  ♦ 

COMMAND 

a 

13,16 

SAY 

•COMMAND  2  •  ♦ 

COMMAND2 

a 

14, 16 

SAY 

'ATTN  '  ♦ 

ATTN 

a 

15,  16 

SAY 

'STREET  •  ♦ 

STREET 

a 

i6;  i6 

SAY 

'CITY  '+CITY-* 

STATE  ' +STATE 

a 

18,20 

SAY 

•  '♦•ZIP  CODE  »  ♦  ZIP 
•ACTIVE  COGS  EXIST  FOR  THIS 

a 

19,15 

♦ 

SAY 

•ITEM  MANAGER* 

•ALL  ACTIVE  CCGS  MUST  BE  »: 

a 

20,21 

♦ 

SAY 

•REASSIGNED  TO 
'BEFORE  DELETE 

ANOTHER  I. H.' 
ACTION  CAN  BE 

a 

22,27 

♦ 

SAY 

'  COMPLETED' 
•STRIKE  ANY  KEY 

TO  CONTINUE' 
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♦  CHF<7) 


WAIT 

ELSE 


*****  ip  previously  deleted,  notify  operator 


ELSE 

3 

a 

3 

a 

a 

a 


a  22-13  SAY  'RECORD  PREVIOUSLY  DELETED  •; 

♦  *-  STRIKE  ANY  KEY  TO  CONTINUE'  +CHR(7) 
WAIT 


11, 16 
12,16 

13.16 

14,  16 

15.16 
16;  16 

15,  20 


•TITLE  '  + 

'COMMAND  '  ♦ 

•COMMAND  2  •  ♦ 

•ATTN  '  ♦ 

•STREET  •  ♦ 

•CITY  •♦CITY-* 
-'  •♦'ZIP  CODE 


TITLE 
COMM  AND 
COMMAND2 
ATTN 
STREET 

STATE  ' +STATE; 
•  ♦  ZIP 


STORE 


SAY  '1  -  DELETE  THIS  ITEM  MANAGER 
♦  •  2  -  EXIT' 

'  TO  A: REPL Y2 


21,40  GET  A  :  REPLY  2  PICTURE 


*****  ACCEPT  DELETE/EXIT  OPTION 


READ 

DO  WHILE  A : REPLY2  <  • 1 • 
2  23,40  GET  A:  REPLY2 
BEAD 
ENEEO 


-OR.  A: REPLY2 


*****  ip  CELETE  REQUESTED 

IF  A:REPLY2 
DELETE 
ENEIF 
ENDIF 
END  IF 
ENEIF 
ENECASE 
USE 
ENDDC 

*****  ENE  OF  PROGRAM 


XXI.  COG  FI LE  OPDATB  MODULE 


***********  **********************************  ***  *********** 


**  ** 

**  DATE:  18  JAN  1984  ** 

**  VERSION :  1.0  ** 

**  MODULE  NAME:  COGUEDT  ** 

**  MCDUIE  EURPOSE:  ALLOWS  ADDITION,  DELETION,  OR  ** 

**  UPDATING  OF  COG  FILE  ** 

**  ** 

**  MODULE  INTERFACE  DEFINITION  ** 

**  INPUTS:  NONE  ** 

**  OUTPUTS:  NONE  ** 

**  ** 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  ** 

**  ACCEPTS  NEB  COG  DATA,  VERIFIES  THAT  THE  NEW  ** 

**  CCG  IS  NOT  A  DUPLICATE.  AND  VERIFIES  THE  ** 

♦*  EXISTENCE  CF  AN  ITEM  MANAGER  RECORD.  ACCEPTS  ** 

**  UPDATE  INFORMATION  ON  COG-ITEM  MANAGER  ASSIGN-  ** 

**  MENTS,  VALIDATES  THE  EXISTENCE  OF  AN  ITEM  ** 

**  MANAGER  RECORD,  AND  UPDATES  THE  COG  FILE.  ** 

**  PREVIOUSLY  DELETED  COGS  MAY  BE  REACTIVATED  ** 

**  WITH  THE  U  EC  ATE  OPTION.  ACCEPTS  THE  COG  TO  ** 

**  EE  DELETED.  VERIFIES  THE  RECORDS  EXISTENCE,  ** 

**  AND  VERIFIES  THAT  NO  ACTIVE  CASES  EXIST  FOR  ** 

**  THIS  COG.  ** 

**  ** 

**  SUPERORDINATE  MODULES:  UTILMENU  ** 

**  SUEORDINATE  MODULES:  NONE  ** 

**  AUTHOR :  R.  G.  NICHOLS  ** 

**  ** 


*********************************************************** 


*  COGUEDT.  PEG 

*  LAST  UPDATE  18  JAN  64 

* 

STORE  T  TO  G:CONTINUE 
DO  WHILE  G:  CONTINUE 

*****  DISPLAY  OPTIONS  AND  ACCEPT  CHOICE 


*****  cog  FILE 
1  -  ADC  COG' 


PROCESSING  ****** 


SAY 
SAY 
'  TO 


'  2 
•  3 

»  4 

G: 


UEDATE 

-  DELETE 

-  RETURN 
REPLY 


COG' 

COG' 

TO  UTILITY 


MENU1 


ERASE 

9  6,24  SAY 

9.28  SAY 

10.28  SAY 

11.28 
»  12, < 8 
STORE  • 

9  15,40  GET  G :REPLY 
READ 

DO  WHILE  G: REPLY  <  '1' 

3  23,32  SAY  'ENTER  1 
3  15, 40  GET  G: REPLY 
READ 
ENEDO 
DO  CASE 

*****  1?  CHOICE  IS  TC  QUIT.  RELEASE  LOCAL  MEMORY 

*****  AND  RETURN  TO  CALLING  PROGRAM 


OR. 
-  4 


G: REPLY 
ONLY'  ♦ 


>  '4* 

CHR  (7) 


VARIAELES 


CASE  G:REPLY  » 
RELEASE  ALL 


'4' 

LIKE  G  :* 
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RETURN 


*****  15  CHOICE  IS  IC  ADD,  FSOHPT  FOR  AND  ACCEPT  INI-CT 

CASE  GiREPLY  *  •  1  • 

ST  CHE  '  '  TO  3:  IM 

STCRE  '  '  !C  G:COG 

ERASE 

3  6,24  SAY  'ENTER  DATA  FOR  COG  BEING  ADDED' 

3  9.32  SAY  'COG  ‘  GET  GlCOG  PICTURE  'SA' 

READ 

STCRE  !  (G : CCG)  TO  GiCOG 
SELECT  PRIMARY 

*****  CHECK  FOR  DUPLICATE  RECORD 


***** 


***** 


***** 

***** 

***** 


USE  D: COG  INDEX  D: COGS 
FIND  6G:COG 
IF  #  <>  0 

a  22,14  SAY  'RECORD  CURRENTLY  EXISTS  •; 

♦  •-  STRIKE  ANY  KEY  TO  CONTINUE'*  CHR  (7) 

WAIT 

ELSE 

STORE  T  TC  G:GETIM 
DO  WHILE  G:GETIM 

EROMFT  FOR  AND  ACCEPT  ITEM  MANAGER 

3  10,32  SAY  'ITEM  MANAGER  •  GET  GjIM 

SELECT  SECONDARY 

USE  D : ADORES  S  INDEX  D:IM 

READ 

STORE  ',  (G:IM)  TC  G:IM 

CHECK  TO  SEE  IF  IM  RECORD  EXISTS 

FIND  SG:IM 
IF  #  O  0 

STCRE  F  TC  G:GETIM 
SEIECT  PRIMARY 
APPEND  BLANK 

HEELACE  COG  WITH  G:COG,  IM  WITH  G:IM 
ELSE 

IF  ITEM  MANAGER  NOT  ON  FILE  PROVIDE  OPTION  TO 
CORRECT  IM  CODE,  ADD  THE  IM  RECORD  OR  EXIT  WITHOUT 
UEDATE 


3  16,27  S 
a  18,30  S 
a  19,30  s 
a  20,30  s 
STORE  •  ' 
a  23,40  G 
READ 
DO  WHILE 
2  23,4 
READ 
ENDDO 
DO  CASE 
CASE  G 

a  1 


CASE  G 
STO 


AY  'ITEM  MANAGER  NOT  ON  FILE’ 
AY  '1  -  CHANGE  I.M.  CODE' 

AY  '2  -  ADD  ITEM  MANAGER' 

AY  '3  -  EXIT'  ♦  CHR  (7) 

TO  GIR3PLY2 

ET  G: REPLY2  PICTURE  '9' 

G;REPLY2<*  1 '  .OR.  G:RSPLY2>'3' 
0  GET  G: REPLY2 


: REPLY2  = 
6,27  SAY 
♦ 

8.30  SAY 

9.30  SAY 
0,30  SAY 
3.40  SAY 

: RE  FLY2  = 
RE  F  TO  G 


i 

•2* 

GETIM 


« 


198 


STOPE  • 

TO  GlTITLE 

STORE 

+ 

STO  PE 


STORE 

+ 

STORE 
STO  PE 

STORE 

STORE 


G : TI TL  E 


TO  G: STREET 

TO  gicity 

•  TO  G: STATE 


TC  G  :  CC.Y  lik  'ID 
•  TC; 


to  g  :  command 

•  TO  G : ATTN 

i 


STORE  » 

'  TO  GlZIP 

a 

1  6,27 

SAY 

A  « 

• 

• 

f  • 

• 

a 

1  8,30 

SAY 

i 

« 

a 

19,30 

SAY 

i 

t 

a 

20,30 

SAY 

i  i 

a 

23,40 

SAY 

i  • 

a 

14,16 

SAY 

•TITLE  ' 

GET 

G:  TI  TLE 

a 

15,16 

SAY 

•COMMAND  • 

G:  COMMAND 

GET 

f 

a 

16,16 

17,16 

SAY 

'COMMAND  2  • 
G:  COMMAND2 

GET 

• 

♦ 

a 

SAY 

•ATTN  • 

G:  ATTN 

GET 

• 

t 

a 

1  8,16 

SAY 

' STREET  ' 

Gl  STREET 

GET 

• 

• 

a 

1  9,16 

SAY 

'CITY  •  GET 

GlCITY 

a 

1  9,44 

SAY 

•  STATE  •  GET  G: 

STATE 

a 

1  9,56 

SAY 

•  ZIP  CODE  • 

GET 

GiZIP; 

PICTURE  '99999' 

READ 

*****  ACCEPT  NEW  IH  EATA  AND  PROMPT  FOR  CREATE/EXIT  OPTION 

9  21,20  SAY  «1  -  POST  NEW  RECORD'; 

♦  *  2  -  EXIT' 

STORE  •  •  TO  G:  REPLY3 

9  23, 40  GET  G:REPLY3  PICTURE  '9' 

READ 

DO  WHILE  G: REPLY3  <  '1'  .OR.; 

G : REPLY3  >  *2' 

3  23,40  GET  G ; REPL Y3 
READ 
END  DO 


*****  CREATE  A  NEW 


RECORD 

IF 


G :  RFPLY3  «  •  1' 

SELECT  PRIMARY 
APPEND  BLANK 

REPLACE  COG  WITH  GlCOG,; 

IM  WITH  G:IM 
SELECT  SECONDARY 
APPEND  BLANK 

REPLACE  IM  WITH  !  (G:  I M)  .  TIT  IE; 
WITH  !  (GlTITLE)  .COMMAND  WITH  ! ( G I COM MAND) . COMMA ND2  WITH; 


n  A  i  n  •  n  a  i  u  •  \u«wwuuau  v;  •  wvuunut/6  n  a.  a  it  « 

!  (GICCMMAND2)  ,  ATTN  WITH  !  (G:  ATTN)  .STREET  WITH  !  (G I  STREET)  ,  ; 
IT Y  WITH  !  (GlCITY)  ,  ZIP  WITH  G:  ZIP 


Cl 


***** 


ELS  E 

STORE  F  TO  G : GETIM 
END  IF 


EXIT  WITHOUT  CREATING  RECORD 
CASE  GIREPLY2  = 


» 3 ' 
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***  *  # 


***** 


***** 


***** 


***** 


***** 


STORE 
ENDCASE 
E  ND I F 
ENDDO 
ENDIF 

IF  CHOICE  IS  IC  UPDATE 


F  TO  GtGETIM 


CASE  G:REPLY 
STCRE  ' 
STORE  '  ' 


•2* 


TO  G! 
1C  G:CO G 


IM 


PBOMPT  FOR  AND  ACCEPT  COG  BEING  UPDATED 
ERASE 

3  6,24  SAY  'ENTER  DATA  FOR  COG  BEING  UPDATED' 

S  9.32  SAY  'COG  •  GET  G:COG  PICTURE  '9A' 

READ 

STCRE  !(G:CCG)  TO  GtCCG 
SELECT  PRIMAFY 

RETREIVE  RECORD  TO  BE  UPDATED 

USE  D:COG  INDEX  D:  COGS 
FIND  &G :COG 
IF  #  *  0 

3  22,17  SAY  'RECORD  NOT  FOUND  •; 

♦  '-  S  RIKE  ANY  KEY  TO  CONTINUE'  ♦  CHR  (7) 

WAIT 

ELSE 

STORE  T  r  IPROCESS 

IF  RECORD  DELETED  PROMPT  FOR  REACTIVATION 
IF  * 

STORE  '  '  TO  G: REPLY3 

3  18,22  SAY  'RECORD  HAS  BEEN  MARKED  FOR'; 

«■  »  DELETION  • 

a  19,19  SAY  'DO  YOU  WANT  THIS  COG  •; 

♦  'REACTIVATED  <Y  OR  N> • 
a  21,40  GET  G:REPLY3  PICTURE  'A' 

READ 

DC  WHILE  !  (G  :  REPLY3)  <>  'Y'  .AND.  !  (G :  REFL  Y3) 
3  23,31  SAY  'ENTER  Y  OR  N  ONLY'  ♦  CHR  (7) 

3  21,40  GET  G: REPL Y3  PICTURE  'A' 

REID 

ENDDO 

REACTIVATE  RECCED  IF  REQUESTED 


O  •  N' 


"i'W 


?LY  3}  =  »  Y' 

SAY 

* 

a  19,19  SAY 

a  21.40  SAY 
RECALL 
ELSE 

STCRE  F  TC  GlPROCESS 
END  IF 
END  IF 

DO  WHILE  GiPROCESS 
STORE  IM  TO  G:IB 

PROMPT  FOR  AND  ACCEPT  UPDATE  INFORMATION 

a  10,32  SAY  'ITEM  MANAGER  '  GET  IM 
READ 

3  21,20  SAY  '1  -  POST  UPDATE  INFORMATION'; 


«  • 
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♦  »  2  -  EXIT' 

STORE  '  '  TO  G :  REPLY 3 

5)  23, 4C  GET  G :  RZPLY3  PICTURE  '9* 

*****  ACCEPT  UPDATS/EXIT  SELECTION 

READ 

DC  WHILE  G:  R  EPLY3  <  '1'  .OR.  G:RE?LY3  >  •  2  • 
3>  23,40  GET  G:  REPLY3 
REAL 
ENDDO 

*****  IE  EXIT  WITHOUT  UPDATE,  RESTORE  RECORD  TO  ORIGINAL 
*****  VALUE 

IF  G  :  REPLY3  <>  *1' 

REPLACE  IM  WITH  G:IM 
END  IF 
USE 

STORE  F  TO  G  :PROCESS 
ENDDO 
ENDIF 

*****  IF  CHOICE  IS  TC  DELETE 

CASE  G: RE PLY  =  »3' 

STORE  •  '  TO  G: IM 

STCRE  '  •  TC  G:COG 

*****  PROMPT  FOR  AND  ACCEPT  COG  BEING  DELETED 


ERASE 

a  6,28  SAY  'ENTER  ( 
a  9.32  SAY  'COG 
READ 

STCRE  !  <G:CCG)  TO 
SELECT  PRIMARY 
USE  D:CCG  INEEX  Dr 

*****  VERIFY  COGS  EXISTENC 

FIND  SGlCOG 
IF  #  =  0 

3  22, 17  SAY  «REi 
+  ' -  STRIK 

WAIT 

ELSE 


COG  BEING  DELETED* 

•  GET  G: COG  PICTURE  ' 9A ' 

G:COG 

COGS 


CORD  NOT  FOUND  •: 

E  ANY  KEY  TO  CONTINUE*  ♦  CHR  (7) 


*****  VERIFY  THAT  NC  ACTIVE  CASES  ARE  ASSIGNED  TO  THIS  COG 


IF  COUNT  >  0 
3  10,32  SAY 
a  13,25  SAY 
a  14,15  S  AY 
♦ 

a  15,21  SAY 
♦ 

a  18,27  SAY 

WAIT 

ELSE 


'ITEM  MANAGER  '  ♦  IM 
'ACTIVE  CASES  EXIST  FOR  THIS  COG' 
'ALL  ACTIVE  CASES  MUST  BE  *; 
'REASSIGNED  TO  ANOTHER  COG' 
'BEFORE  DELETE  ACTION  CAN  BE  '; 
'COMPLETED' 

'STRIKE  ANY  KEY  TO  CONTINUE'  ; 

CHR  (7) 


*****  NOTIFY  OPERATOR  THAT  RECORD  PREVIOUSLY  DELETED 


IF  * 

3  23,13  S 

♦ 

WAIT 

ELSE 


AY  'RECORD  PREVIOUSLY  DELETED 
'STRIKE  ANY  KEY  TO  CONTINUE* 


VV.V.V.V.V.V  V.' V.V.V.  v.v.v 
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ENEC 

USE 

ENDDC 


3>  10,32  SAY  'ITEM  MANAGE?  •  ♦  I  ‘.I 
3  17,20  SAY  '1  -  DELE  IE  THIS  COG'; 

^  _  EXIT 1 

ST  CPE  '  '  TO  G : REPL Y3 
3  19,40  GET  G : REPLY3  PICTURE  '9* 

ACCEPT  DELETE/EXIT  SELECTION 

READ 

DO  WHILE  G : REPLY3  <  • 1 •  .OR.  G: REPLY3  >  *2 
3  23,3  2  SAY  'ENTER  1  -  2  ONLY'  ♦  CHR  (7) 
3  19,40  GET  G:  REPL  Y3 
READ 

EV  LEO 

IF  G : REPL  Y 3  =  '1' 

DELETE 

USE 

ENEIF 

ENDIF 

ENDIF 

ENDIF 

:ase 


*****  ENC  OF  PROGRAM 


N\-W 


**** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

** 

**** 


XXII.  DATA  BASE  PACK  MODULE 


*  **  ***  *  ****  ♦♦***^4****#  *  **  *********  ********** 

DATE:  15  JAN  1984 
VEBSICN:  1.0 
MODULE  NAME:  DBPACK 

MCDUIE  PURPOSE:  PACK  THE  DATA  BASE  AND  REMOVE 

RECORDS  TAGGED  FOR  DELETION 

MCDUIE  INTERFACE  DEFINITION 
INPUTS:  C:WHO 
OUTPUTS:  NONE 

MODULE  PROCESSING  NARRATIVE  DESCRIPTION: 

COMPRESSES  THE  DATA  EASES  BY  REMOVING  R 
MARKED  FOR  DELETION.  PRIOR  TO  EXECUTIO 
USERS  PASS  KCRD  IS  VERIFIED  TO  ENSURE  TH 
IS  AUTHORIZED  TO  PERFORM  THE  PACK. 

SUPEFOHEINATE  MODULES:  UTILMENU 
SUBORDINATE  MODULES:  NONE 
AUTHOR:  R.  G.  NICHOLS 

* * ** *** **** **** ******* *  *** ********* ****** **** 


*  **  **  * **  ** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
*# 
** 

ECORDS  ** 
N  ,  THE  ** 
AT  HE  ** 
** 
** 
** 
** 
** 
** 

«***♦***** 


*****  DISPLAY  WARNING  MESSAGE 


ERASE 


3  8,24 

3  9,  24 

3  10,24 
3  11,24 
3  12,2  4 
3  13,  24 
3  14,24 
3  15,24 
3  17,24 
3  18,24 
3  19,24 
STORE  ' 
3  21,40 


SAY  * 
SAY  • 
SAY  • 
SAY  • 
SAY  • 
SAY  • 
SAY  • 
SAY  • 
SAY  • 
SAY  • 
SAY  ' 
SAY  • 
SAY  ' 
SAY  * 
SAY  • 
SAY  • 
SAY  • 
*  TO 
GET  P 


***** 
*  *  * 
* 

* 

* 

* 

*  AL 

*  W 

* 

*  IF 

*  LA 

* 

* 

*  *  * 

A 


P:  REP 
:  REPL 


DATA  BASE  PACKING  ****** 
***********  ** 

* 

WARNING  * 

* 

THIS  PROGRAM  WILL  PACK  * 

I  DELETED  CASES  AND  THEN  * 

ILL  RE-INDEX  THE  FILES  * 

* 

EXISTING  FILES  ARE  * 

EGE,  THIS  COULD  TAKE  * 

HOURS  * 

* 

***********  ** 

RE  YOU  SURE  YOU  WANT  TO* 
CONTINUE' 

<ENTER  Y  OR  N>'  +  C HR (7) 

LY2 

Y2 


*****  ACCEPT  RESPONSE  FROM  USER 
READ 

DO  WHILE  !  ( P  :  REPLY  2)  <  > '  Y  •  .AND.  !(P: 
3  23,32  SAY  'ENTER  Y  OR  N  ONLY*  + 
3  2  1  ,40  GET  P:REPLY2  PICTURE  'A' 
READ 
ENDDO 

3  23,  32  SAY  •  • 

3  17,40  SAY  '  • 


(P  :  REPL  Y 2) 
'  +  CHR  (7) 


O'  N' 


*****  ACCEFT 


VERIFY  PASSWORD  PRIOR 


EXECUTION 


*  *  V  ■>  « 


If  ?:  REPLY  2  =  *Y* 

3  21,30  SAY  'ENTER  YOUR  PASSWORD  ' 

STORi  '  •  TO  P: PASSWORD 

SET  COUS  C  IE  OFF 

ACCEPT  TC  PlPASSWORD 

SET  COHS CIS  ON 

IF  ?:PASSWORD  <>  '  * 

USE  DlTECHCODE  INDEX  D:f ECH 
FIND  6C:WHO 

IF  PSWE  =  P:  PASSWORD  .AND.  #  <>  0 
*****  DISPLAY  PROCESSING  MESSAGE 

ERASE 

3  6,26  SAY  '  OPEN  DATA  3 ASE  BEING  PURGED* 

S  8,32  SAY  'OF  CLOSED  CASES' 

S  16,29  SAY  ******  DO  NOT  INTERRUPT  ****** 

USE  D :  OPE  N 1  INDEX  DrOCASEI,  D:ONSN 

PACK 

USE  D  :  OPS  N2  INDEX  D:OCASE2 
PACK 
E ISE 

a  23,18  SAY  'REQUEST  ABORTED  •; 

♦  '-  STRIKE  ANY  KEY  TO  CONTINUE' 

WAIT 

ENDIF 

ENDIF 

ENDIF 

USE 

RELEASE  ALL  IIKE  P :* 

RETURN 

*****  END  OF  PROGRAM 


"VvVWv'-.-  j'-- 


XXIII.  ANALYST  FILE  OP DATE  MO DOLE 


AND  LIST 


***********  **** **** *4****** ******************************** 
**  ** 

**  DATE:  15  JAN  1984  ** 

**  VERSION :  1.0  ** 

**  MODULE  NAME:  ANALYST  ** 

**  MODULE  PURPOSE:  TC  ADD,  UPDATE,  DELETE,  AND  LIST  ** 

**  ANALYST  INFORMATION  ** 

**  ** 

**  MODULE  INTERFACE  DEFINITION  ** 

**  INPOTS:  NONE  ** 

**  OUTPUTS:  NONE  ** 

**  ** 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  PROVIDE  CAPABILITY  TC  ADD  NEW  ANALYST  CODES,  ** 

**  UPDATE  EXISTING  ANALYST  RECORDS.  DELETE  ** 

♦*  ANALYST  RECORDS,  OR  DISPLAY  ANALYST  RECORDS.  ** 

**  NEW  ANALYST  IDS  ARE  VALIDATED  TO  ENSURE  THAT  ** 

**  DUPLICATE  RECORDS  ARE  NOT  CREATED  AND  THAT  NO  ** 

**  EMBEDDED  BLANKS  APPEAR  IN  THE  ID.  DELETED  ** 

♦  *  ANALYST  RECORDS  MAY  EE  RECALLED  BY  UPDATING  ** 

**  TEE  RECORD.  PRIOR  TO  DELETION  OF  A  RECORD,  ** 

**  THE  ANALYST  IS  VERIFIED  TO  HAVE  NO  ACTIVE  ** 

**  CASES  ASSIGNED.  ** 

**  ** 

**  SUPERORCINATE  MODULES:  UTILMENU  ** 

**  SOEOHDI  NATE  MODOIFS:  NONE  ** 

**  AUTHOR:  R.  G.  NICHOLS  ** 

**  ** 

*********************************************************** 


STORE  T  TO  A:CONTINUE 
DO  WHILE  A :  CONT INUE 

*****  DISPIAY  OPTIONS  AVAILABLE  TO  THE  USER  AND 
*****  SELECTION 


ACCEPT 


ERASE 

a  6,2 
a  9.2 
a  10, 
a  ii, 
a  12, 
a  13, 

STORE 

a  16, 

READ 


5  SAY  •  *****  ANALYST  FILE  UP 
8  SAY  '1  -  ACC  ANALYST* 

28  SAY  *  2  -  UPDATE  ANALYST* 

28  SAY  *3  -  DELETE  ANALYST* 

28  SAY  '4  -  LIST  ANALYST* 

28  SAY  *5  -  RETURN  TO  UTILITY 
'  •  TO  A:  REPLY 
40  GET  A  :REPL  Y  PICTURE  *9* 


UPDATE  ****** 


MENU* 


*****  VALIDATE  SELECTION 

DO  WHILE  A:  REPLY  <  *1*  .OR.  A.-REPLY 
i  23,32  SAY  'ENTER  1  -  5  ONLY'  ♦ 
a  16,40  GET  AtREFLY  PICTURE  '9* 
READ 
ENLDO 
DC  CASE 


>  '5' 

CHR  (7) 


***** 

***** 


IE  QUIT  REQUEST,  RELEASE 
RETURN  TO  CALLING  PROGRAM 

CASE  A:REPLY  *  *5' 

RELEASE  ALL  LIKE  A:* 


RELEASE  LOCAL  MEMORY  VARIABLES 


V"  •/  %'  O  O  *  •  • 


\  A.  \  W. 
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RETURN 


*****  If  ADD  NSW  ANALYST  SELECTED 

CASE  A:R3PLY  =  *1' 

STCSS  '  '  TO  A: TBCHCODS 

STORE  '  '  TO  A :  P  A  SS  WORD 

STCRE  •  •  TO  A: NAME 

*****  CLEAR  SCREEN  AND  PROMPT  FOR  NEW  ANALYST  INFORMATION 


ERASE 

3  6,22  SAY  ’ENTER  DATA  FOR  ANALYST  BEING 
S  7.22  SAY  '  FOLLOW  EACH  ENTRY  WITH  A 
2  10,28  SAY  'ANALYST  CODE  •  GET  A: TE 

READ 

*****  VALIDATE  NO  EKEEDDED  ELANKS 

CO  WHILE  $  (  AiTECHCODE.1 .  1)  =•  •  .OR.: 

$ ( A: TECH  CCDE .2.  1)  =  '  '  .OR.  $(A:TECHCO 
='  '  .OR.  $  (A:T ECHCODE. 4,  1)  =*  • 

a  23,23  SAY  'ANALYST  CODE  CANNOT  CONT 
+  '  BLANKS'  ♦  CHR  (7) 

3  10,45  GET  A:  T  ECHCODE 
READ 
ENEDO 

a  23,23  SAY  ' 

STORE  !  (A: T ECHCODE )  TO  A: TECHCODE 

*****  VALIDATE  FOR  DUPLICATE  USER  ID 

USE  D : T ECHCCCE  INDEX  DlTECH 
FIND  S  A :TECECODE 
IF  #  <>  0 

a  22,14  SAY  'RECORD  CURRENTLY  EXISTS 
♦  •-  STRIKE  ANY  KEY  TO  CONT 

WAIT 

ELSE 

a  12,28  SAY  'ANALYST  NAME  ’  GET  A: 
READ 

SET  CONSOLE  OFF 
STORE  T  TC  AiENTERESW 


ADDED 
<CR  >  ' 
CHCODE 


DE, 3,1); 
AIN' ; 


INUE' 


NAME 


*♦♦ * ♦  FRCMET  FOR  USER  PASSWORD  AND  VERIFICATION  OF  THE 
*****  PASSWORD 

a  14.28  SAY  'PASSWORD  • 

DO  WHILE  A  : ENT  ERPS  W 
a  14,44  SAY  '  • 

ACCEPT  TO  A: PASSWORD 
STORE  '  »  TO  A:  VERIFY 

a  16.28  SAY  'VERIFY  PASSWORD  • 

ACCEPT  TO  A:  VERIFY 
IF  AJPASSWORD  <>  A :  V  ERIFY 

3  23,5  SAY  'VERIFICATION  PASSWORD  DOES  ': 

♦  'NOT  MATCH  -  REENTER  PASSWORD' 

♦  '  AND  REVERIFY'  ♦  CHR  (7) 

STCRE  '  •  TO  A: PASSWORD 

ELSE 

STORE  F  TC  AlENTERPSW 
ENDIF 
ENDDO 

SET  CONSOLE  ON 

*****  CREATE  THE  NEW  ANALYST  RECORD 
APPEND  BLANK 

REPLACE  TECHCODE  WITH  !  (A:T  ECHCODE)  ,  NAME  W! 


NAME  WITH; 


!  <  A:  a  A  «  5)  #  PS  WD  WITH  AtPASSWCRD 
US  2 
ENDIF 

*****  IF  UPDATE  ANAIYST  S3  IECTED 
CASE  A :  R  2P  LY  =  «  2' 

STCRE  •  '  TO  A ; N  AM  E 

STORE  '  '  10  A:  TECHCODE 

*****  E FC MPT  FOR  AND  ACCEPT  ANALYST  CODE 

ERASE 

i  6,15  SAY  'ENTER  ANALYST  CODE  FOR  RECORD  TC  BE': 
♦  •  UPDATED  »  GET  AtTECHCODE 

READ 

STCRE  !  (AtTECHCODE)  TO  AtTECHCODE 

*****  VALIDATE  CODES  EXISTENCE 

USE  DtTECHCOCE  INDEX  Dt  TECH 
FIND  SAtTECHCODE 
IF  #  =  0 

3  22,17  SAY  •  RECORD  NOT  FOUND  •; 

♦  •-  STRIKE  ANY  KEY  TO  CONTINUE* 

WAIT 

ELSE 

STORE  T  TC  A  t  PROCESS 

*****  IE  MARKED  FOR  DELETION,  SEE  IF  RECORD  SHOULD  BE 
*****  REACTIVATED 


IF  * 

STORE  '  '  TO  A  t  EEPLY  2 

S  18,22  SAY  'RECORD  HAS  BEEN  MARKED  FOR'; 

♦  '  DELETION' 

a  19,18  SAY  'DC  YOU  WANT  THIS  ANALYST  '; 

♦  'REACTIVATED  <Y  OR  N>' 
a  21,40  GET  AiREPLY2  PICTURE  'A* 

READ 

DO  WHILE  A:REPLY2<>' Y'  .AND.  A  tREPLY2<>' II' 
a  25,31  SAY  'ENTER  Y  OR  N  ONLY*  ♦  CHB  (7) 
3  21,40  GET  AJREPLY2  PICTURE  'A' 

READ 

ENDDO 

IF  !  (A  tREPLY  2)  *  'Y* 

RECALL 


a  18,22  SAY  » 

♦  •  ' 


a  19,18  SAY  «  • 

♦  i  • 

a  21,40  SAY  •  • 

ELSE 

STCRE  FTC  AtPROCESS 
ENDIF 
ENDIF 

*****  EEOMPT  FOR  AND  ACCEPT  UPDATE  INFORMATION 

DO  WHILE  AtPROCESS 

STORE  NAME  TO  A  t  NAME 

8  8,15  SAY  'ENTER  NEW  NAME  DATA  •  GET  NAME 
READ 

a  21,20  SAY  '1  -  POST  UPDATE  INFORMATION'; 

♦  '  2  -  EXIT* 

STORE  •  •  TO  At  REPLY  2 
3  23,40  GET  A;REPLY2  PICTURE  *9* 

*****  ACCEET  UPDATE/EXIT  OPTION  SELECTION 


20  7 


>  • : 


READ 

DO  WHILE  A :  P.  E  P  L  Y  2  <  '1'  .OH.  A  :  RE  PL  ”2 
3  23,40  GET  A : REPLY2  PICTURE  '9' 
REAL 
EMDDO 

I?  A: BEPLY2  =  •  1 1 

REEIACE  NAME  WITH  ! (NAME) 

ELSE 

REELACE  NAME  WITH  A : NAME 
ENDIF 

STORE  F  TO  A:  PROCESS 
ENDDC 
USE 
ENDIF 


*****  If  DELETE  OPTION  SELECTED 

CASE  AsREPLY  =  '3' 

STORE  « 

STORE  •  '  TO  A:  TECHCO DE 


TO  A : NA ME 


*****  PEOMPT  FOR  AND  ACCEPT  ANALYST  CODE 
ERASE 

3  6,15  SAY  ’ENTER  ANALYST  CODE  FOR  RECORD  TO  EE  DELETED  • 
GET  A  :TECHCO  DE 

READ 

STORE  ! JA: TECHCODE )  TO  AlTECHCODE 
USE  D :  TECHCODE  INDEX  D:  TECH 
FIND  G  A :TECHCODE 
IF  t  -  0 

3  22,17  SAY  ’RECORD  NOT  FOUND  -  STRIKE  ANY  KEY’; 

♦  •  TO  CONTINUE' 

WAIT 

ELSE 

*****  CHECK  FOR  ACTIVE  RECORDS  ASSIGNED 

IF  ACT! VE>0  .OR.  TRANSMITS  .OR.  RESPONDS 
3  9,21  SAY  ’ACTIVE  RECORDS  EXIST  FOR  •; 

♦  'THIS  ANALYST’ 

3  10,21  SAY  ’ALL  ACTIVE  RECORDS  MUST  BE’; 

♦  ’  REASSIGNED’ 

a  11,21  SAY  *  PRIOR  TO  DELETION’ 

WAIT 

ELSE 

*****  INDICATE  IF  RECORD  PREVIOUSLY  DELETED 
IF  * 

3  23,13  SAY  'RECORD  PREVIOUSLY  DELETED  •; 

♦  •-  STRIKE  ANY  KEY  TO  CONTINUE’ 

WAIT 

ELSE 

*****  PROVIDE  OPTION  TO  DELETE  OR  EXIT 

3  8.32  SAY  'ANALYST  '  ♦  NAME 
d  17,20  SAY  '1  -  DELETE  THIS  ANALYST  •; 

♦  '  2  -  EXIT* 

STORE  '  *  TO  A : REPLY2 

3  23,40  GET  A :  REPLY2  PICTURE  '9' 

READ 

DO  WHILE  A:REPLY2  <  *1'  .OR.  A: REPLY2  >  *2’ 

3  23,4  0  GET  A:  REPLY2  PICTURE  '9' 

READ 

ENDDO 

IF  A: REPL Y2  *  ’1’ 

DELETE 


ENCIF 

ESDI? 

ENDIF 

ENCIF 

*****  If  LIST  OPTION 

CASE  A :  R  E  P  LY  =  '4* 

USE  DiTECHCCCE  INDEX  D :  T  EC  H 
SET  DELETED  CN 
ER  ASS 

DISPLAY  ALL  FIELD  TECHCODE,  NAME  OFF 


?  •  STRIKE  ANY  KEY  TO  CONTINUE* 

SET  DELETED  CFF 
WAIT 
ENECASE 
ENDDC 


*****  ENE  OF  PROGRAM 


XXI 7.  PASSWORD  FILE  UPDATE  MODULE 


*********************************************************** 


**  ** 

**  DATE:  15  JAN  1984  ** 

**  VERSION:  1.0  ** 

**  MODULE  NAME:  PASS  ** 

**  MODULE  PURPOSE:  PASSWORD  UPDATING  ** 

**  ** 

**  MODULE  INTERPACE  DEFINITION  ** 

**  INPUTS:  NONE  ** 

**  OUTFUTS:  NONE  ** 

**  ** 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  ACCEPTS  THE  USER  ID  AS  INPUT,  REQUESTS  THE  ** 

**  CURRENT  PASSWORD.  VALIDATES  IT,  AND  REQUESTS  ** 

**  THE  ENTRY  AND  VALIDATION  OF  THE  NEW  PASSWORD.  ** 

**  AN  ILLEGAL  USER  ID  OR  AN  ILLEGAL  PASSWORD  WILL  ** 

**  CAUSE  THE  PASSWORD  UPDATE  TO  TERMINATE.  ** 

**  ** 

**  SUPERORDINATE  MODULES:  UTILMENU  ** 

**  SUECRDI  NATE  MODULES:  NONE  ** 

♦*  AUTHOR:  R.  G.  NICHOLS  ** 

**  ** 


***************************  ******************************** 
*****  CLEAR  SCREEN  AND  PROMPT  FOR  USER  ID 
ERAS  E 

STORE  •  •  TO  F:PASSWORD 

STORE  »  »  TO  P:  TECHCODE 

d  6,21  SAY  ******  PASSWORD  UPDATE  PROCESSING  ****** 
a  9,24  SAY  'ENTER  DESIRED  ANALYST  CODE  •  GET  P:TECHCOD£ 

*****  ACCEPT  AND  VALIDATE  USER  ID 

READ 

STORE  !  (P: T ECHCODE)  TO  P:TECHCODE 
USE  D:TECHCCDE  INDEX  D:TECH 
FIND  SP: TECHCODE 
IF  #  »  0 

d  22,14  SAY  'RECORD  DOES  NOT  EXIST  •; 

♦  •-  STRIKE  ANY  KEY  TO  CONTINUE • +C HR  (7) 

WAIT 

ELSE 

SET  CONSOLE  OPF 
SET  EXACT  ON 

*****  ACCEPT  AND  VALIDATE  PASSWORD 

a  11.24  SAY  'ENTEP  CURRENT  PASSWORD  • 

ACCEPT  TO  P: PASSWORD 
IF  P : PAS  SWORD  =  '  • 

SET  CONSOLE  ON 
RELEASE  ALL  LIKE  P:* 

RETURN 

ENDIF 

STORE  P:  PASSWORD*  '  •  TO  P.-PASSWORD 

IF  $(P:  PASSWORD,  1,81  <>  PSWD 

8  22,8  SAY  'INVALID  PASSWORD  FOR  ANALYST  ' ♦ P : TECHCO DE ; 

♦  '  -  STRIKE  ANY  KEY  TO  CONTINUE’  ♦  CHR  (7) 

WAIT 

ELSE 
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STCRE  T  TO  PsGETPASKD 


*****  ACCEPT  NEW  PASSWORD  AND  VALIDATION  OF  NEW  PASSWORD 

DC  WHILE  PlGETPASWD 

3)  13.24  SAY  'ENTER  NEW  PASSWORD  • 

ACCEPT  TO  P : EASSWO  RD 

3  15,24  SAY  'VERIFY  NEW  PASSWORD  • 

ACCEPT  TO  P : VERIFY  PW 
IF  PiPASSWOBE  <>  P:VERIFYPW 

3  23,5  SAY  'VERIFICATION  PASSWORD  DOES  NOT  HATCH'; 

♦  •  -  REENTER  PASSWORD  AND  REVERIFY  '  ♦  CHR(7) 

ELSE 

STORE  F  IC  ?:GE  TPASWD 
ENDIF 
ENEDO 

REELACE  PS  WD  WITH  P:PASSWORD 
OSE 
ENEIF 

SET  EXACT  OFF 
SET  CCNSCLE  ON 
ENDIF 

*****  RELEASE  LOCAL  MEMORY  VARIABLES  AND  RETORN  TO 
*****  CALLING  PROGRAM 

RELEASE  ALL  LIKE  PS* 

RETORN 

*****  END  CF  PROGRAM 


XXV.  DATA  BASE  RE-INDEX  MOD OLE 


***************************  ******************************** 
**  ** 

**  DATE:  20  JANUARY  1984  ** 


DATE:  20  JANUARY  1984 

VERSION:  1.0 

MODULE  MAMS :  UTIINDX 

MODULE  PURPOSE:  RE-INDEX  ALL  INDEX  FILES 
MCDUIE  INTERFACE  DEFINITION 
INPUTS:  C:WHO,  C: JULIAN 
OUTPUTS:  NONE 

MODULE  PROCESSING  NARRATIVE  DESCRIPTION: 


♦*  A  UTILILITY  FOR  THE  SDPERVISOR  TO  RECONSTITUTE  ** 

**  THE  INDEX  FILES  WHEN  THE  SYSTEM  DESTROYS  THE  ** 

**  CURRENT  INDEXES.  AFTER  ACCEPTANCE  OF  THE  ** 

**  SUPERVISOR'S  CHOICE  TO  PROCEED,  EACH  INDEX  FILE  ** 

**  IS  DELETED  AND  THEN  REBUILT  USING  THE  DATA  IN  ** 

**  ALL  OF  THE  DATABASE  FILES.  THIS  TAKES  A  LONG  ** 

**  TIKE  TO  PROCESS.  AND  CAN  BE  ACCOMPLISHED  ONLY  ** 

**  WHEN  IT  IS  THE  ONLY  PROGRAM  RUNNING  ON  THE  ** 

**  QDR  SYSTEM.  ** 

**  ** 

**  SUPEHORDINATE  MODULES:  UTILMENU  ** 

**  SUEORDINATE  MODULES:  NONE  ** 

**  AUTHOR:  J.  G.  BOYNTON  ** 

**  ** 

*********************************************************** 

*****  DELEIE  current  indices 

DELETE  FILE  D:OCASE1.NDX 
DELETE  FILE  D:ONSN.NDX 
DELETE  FILE  D:OCASE2.NDX 
DELETE  FILE  D:CCASE1.NDX 
DELETE  FILE  D:CNSN.NDX 
DELETE  FILE  D:CCASE2.NDX 

*****  BEGIN  REINDEX  CF  FILES 

USE  B  :OEEN1 

INDEX  ON  CASE  TO  D:OCASE1 
INDEX  ON  NS  N  TO  D:ONSN 

USE  B:OPEN2 

INDEX  ON  CASE  TO  D:OCASE2 
USE  D : CLOSE  1 

INDEX  ON  CASE  TO  D:CCASE1 
INDEX  ON  NSN  TO  D:CNSN 

USE  D :CLCSE 2 

INDEX  ON  CASE  TO  D:CCASE2 

USE  D  :TECHCCDE 

INDEX  ON  TECHCODE  TO  D:  TECH 

USE  D:COG 

INDEX  ON  COG  TO  D:COGS 

USE  D  :  HHERECIS 

INDEX  ON  CODE  TO  D:DISCODE 
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XX 71.  OPEN  CASE  REPORT 


************************************************ ***** ****** 


**  ** 

**  DATE:  5  JANUARY  1S84  ** 

**  VERSION:  1.0  ** 

**  MODULE  NAME:  OCASERPT  ** 

**  MODULE  PURPOSE:  PROVIDE  ANALYST  WITH  LISTING  OF  ALL  ** 

**  CF  HIS  OPEN  CASES  IN  THE  DATA  BASE.  ** 

**  MODULE  INTERFACE  DEFINITION  ** 

**  INPUTS:  C:WHO,  C :  JUL I  AN  ** 

**  OUTPUTS:  NONE  ** 

**  MODULE  PROCESSING  NARRATIVE  DESCRIPTION:  ** 

**  ** 


**  ALLOWS  THE  ANALYST  TO  CHOOSE  BETWEEN  RECEIVING  ** 
**  A  LIST  OF  HIS  CURRENTLY  OPEN  CASES  OR  TO  RETURN  ** 
**  TO  THE  MAIN  PROCESSING  MENU.  THE  PROGRAM  DOES  A  ** 
**  SEQUENTIAL  SEARCH  OF  THE  DATA  BASE  TO  IDENTIFY  ** 
**  THE  APPROPRIATE  CASES.  AND  LISTS  THEM  TO  EITHER  ** 
**  THE  SCREEN  CR  THE  PRINTER.  LIST  SHOULD  NOT  BE  ** 
♦*  SENT  TO  THE  PRINTER  IF  ANYONE  ELSE  WILL  BE  ** 
**  USING  IT  BEFORE  THE  PROCESS  IS  COMPLETED.  ** 


**  ** 

**  SUPEROREINATE  MODULES:  MEND1  ** 

**  SUBORDINATE  MODULES:  NONE  ** 

**  AUTHOR:  J.G.  BOYNTON  ** 

**  ** 


***************************  ************  ******************** 

ERASE 

STORE  '  '  TO  V: PRINT 
TEXT 


YOU  MAY  RECEIVE  THE  REPORT  ON  THE  SCREEN  OR 
AT  THE  PRINTER 

1  -  SCREEN 

2  -  PRINTER 

3  -  EXIT 


<  ENTER  YOUR  CHOICE  > 

ENDTEXT 

2  22,35  SAY’  '  GET  V  .‘PRINT 
READ 

IF  V:FRINT  =  •  1  ' 

ERASE 

USE  E :  CPEN 1 

REPORT  FORM  OPENCASE  FOR  WHO  =  C : WHO 
?  'PRESS  ANY  KEY  TO  CONTINUE' 

WAIT 

ELS  E 

IF  7: PRINT  »  •  2  ' 

ERASE 
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C  :WHO 


U S3  D:0?EN1 
S PRINT  CN 

REPORT  FOR  M*  OPEMC ASE  FOR  WHO  = 
EJECT 

SET  PRINT  CFF 

?  'PRESS  ANY  KEY  TO  CONTINUE' 

WAIT 

ENDIF 

END  IF 

RELEASE  VlPRINT 
RETURN 

*****  euc  OF  PROGRAM 
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